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Here are full instructions for using 
your completed spreadsheet 

BASIC PROGRAMMING 79 



SOLIDS 



OF ROTATION 



Draw three-dimensional pictures of 
any shape you choose 




HOW TO ORDER 
YOUR BINDERS 

UK and Republic of Ireland: 

Send £4.95 (inc p & p) (IR£5.95) for 
each binder to the address below: 

Marshall Cavendish Services Ltd, 

Department 980, Newtown Road, 

Hove, Sussex BN3 7DN 
Australia' Sec inserts for details, or 
write to INPUT, Times Consultants, 

PO Box 213, Alexandria, NSW 2015 
New Zealand: See inserts for details, or 
write to input, Gordon and Gotch 
(NZ) Ltd, PO Box 1 595, Wellington 
Malta: Binders are available from local 
newsagents. 



There are four b inders each holding 13 issues. 

BACK NUMBERS 

Back numbers are supplied at the regular cover price (subject to availability), 
UK and Republic of Ireland: 

INPUT, Dept AN, Marshall Cavendish Services, 

Newtown Road, Hove BN 3 7DN 
Australia, New Zealand and Malta: 
Back numbers arc available through your local newsagent. 
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Predict events in the real world using 
trends and random numbers 
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Subscription Department, Marshall Cavendish Services Ltd, 

Newtown Road, Hove, Sussex BN3 7DN 
Please state the title of the publicaiion find the part from which you wish to start. 
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CLIFFH ANGER: ADDING SEAGULLS 

Enter the routines that create a flock of 
seagulls wheeling over Willie's head 



INDEX 

The lost port of INPUT, Part 52, will contain o complete, cross-referenced index. 
For easy access to your growing collection, a cumulative index to me contents 
of each issue is contained on the inside back caver. 
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INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIR ZX SPECTRUM (1 6K, 48K, 1 28 and + ), 
COMMODORE 64 and 1 28, ACORN ELECTRON, BBC B 
and B+,and the DRAGON 32 and 64. 

In addition, ma ny of the programs and explanations are also 
suitable fortheSINCLAIRZX81, COMMODORE VIC 20,and 
TANDY COLOUR COMPUTER in 32K with extended BA5IC 
Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



SPECTRUM 16K, 
48K,128,and + 



St 

H ACORN ELECTRON, ft* 
BBC Band B+ 



COMMODORE64andl28 



DRAGON 32 and 64 



ZX81 



CZ 



VIC 20 



TANDY TRS80 



COLOUR COMPUTER 
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THE PLOT 



WRITING 'HE GAME 



SETTING UP THE GRAPHICS 

FREDDY. ARROWS, BALLOONS 
AND THE SPIDER 



Help Freddy burst the balloons, or he'll 
come to a gruesome end as the spider's 
breakfast! 

So much for the plot. As for the scoring, 
points are awarded for each balloon Freddy 
bursts. But bursting the lot doesn't bring 
relief — Freddy's torture continues at a higher 
level, with faster moving balloons. If he lets 
through three balloons, the Martian spider is 
released. 



WRITING THE GAME 



There are four objects that move about on the 
screen — the spider, which can move both 
horizontally and vertically; Freddy, who 
moves only vertically; the balloon currently 
on the screen, which also moves only verti- 
cally; and finally the arrow. This normally 
moves horizontally, but when Freddy ascends 
or descends the ladder and is holding the 
arrow it will have to move vertically with him. 




Release the starving Martian spider 
onto frantic Freddy when you follow 
through how an arcade-type game is 
written. In the next part you'll have 
the complete game 

Freddy and the Spider from Mars (or the 
Window Cleaner's Nightmare) is a complete 
arcade-type game, building up over the next 
two parts of Games Programming. 

In this first part, the graphics are set up 
and the program is initialized. In part two the 
working game will be produced by knitting 
the routines together. 



THE GAME 



The starting point for designing any game is 
an idea — some kind of plot or storyline, or 
maybe a character around which to build the 
game. 

In this game Freddy is a window cleaner 
with an intense dread of spiders. He's been to 
his doctor and to innumerable specialists who 
cannot cure his condition. Things are so bad 
he now has a recurring nightmare, concerning 
a Martian spider (a particularly huge, hungry, 
nasty-looking variety of Freddy's favourite 
phobia), a collection of balloons, and his 
favourite hobby, archery. 

Frequently he wakes up bathed in sweat 
after dreaming of being stranded on his ladder 
equipped, not w'ith his usual bucket of dirty 
water and a w r ash leather, but with a supply of 
arrows. He has been trying desperately to 
burst balloons which, if allowed to reach the 
spider's cage above his head, unlock the doors 
which imprison the beast, 
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The main objects of interest, though, are the pictures that will be displayed during the 



spider and the balloon, These have many 
variables associated with them. A technique 
that proves useful here is to store all the 
variables in a one-dimensional array, and use 
a constant to reference a particular 
component. 

The next stage is to think of how you are 
going to display the shapes on the screen. 
This involves considering all the different 



course of the game. All the best computer 
games feature large, colourful shapes, so this 
is a very important stage in developing the 
program. In order to provide enough detail, 
Freddy will be constructed out of a three by 
two arrangement of UDG characters. Two by 
two pictures will be used to display the spider 
(there will be two of these, to make the 
animation more impressive), the balloon 
shape and a picture of a popped balloon. If 
you include two characters to display the 
arrow, and two more for the ladder, you 
end up having allocated 26 characters. 



FAT 



Part one sees the graphics set up and the game 
initialized. 



GRAPHICS INITIALIZATION 



1000 DIM b(6): DIM s(7) 

1 01 LET xpos = 1 : LET ypos = 2: LET 

colour=3: LET points = 4: LET count = 5: 

LET maxcount = 6 
1020 LET xinc = 3: LET vine = 4: LET 

picture = 7 
030 LET dest = 65288 
040 FOR i = TO 26*8 - 1 : READ j: POKE 

dest + i,j: NEXT i 
1050 DATA 15,63,127,255,255,255,255,127 
1060 DATA 240,252,254,255,255,255,255,254 
1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,224,192,96 
1090 DATA 32,96,255,255,96,32,0,0 
1100 DATA 5,10,252,252,10,5,0,0 
11 10 DATA 1,64,17,40,16,0,0,161 
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1120 DATA 
1130 DATA 
1140 DATA 
1150 DATA 
11 60 DATA 
1170 DATA 
1180 DATA 

255 
1190 DATA 
1200 DATA 
1210 DATA 
1220 DATA 

215,255 
1230 DATA 
1240 DATA 
1250 DATA 
1260 DATA 

252,240 
1270 DATA 

247,239 
1280 DATA 

254,252 
1290 DATA 
1300 DATA 

252,248 



128,2,136,20,8,0,0,133 

161,0,0,16,40,17,64,1 

133,0,0,8,20,136,2,128 

48,48,48,48,111,111,48,48 

12,12,12,12,246,246,12,12 

7,31,49,57,127,112,237,255 

224,248,140,204,254,14,183, 

127,59,51,99,115,35,6,12 
254,108,102,51,49,25,24,48 
7,31,49,51,127,112,235,255 
224,248,140,156,254,14, 

127,51,50,27,25,50,112,224 
254,204,108,102,54,22,3,6 
15,31,19,55,55,63,63,15 
240,248,248,252,252,252, 

251,219,139,219,219,251, 

252,254,254,254,254,254, 

95,127,31,31,31,63,127,127 
188,188,188,188,188,124, 




1310 LET hiscore = 

1320 RETURN 

MUM 

1000 DIM B(6),S(7),NU$(9} 

1010 XP = 1:YP = 2:PO = 4:CT = 5:MC = 6 

1 020 XI = 3:YI = 4: PI = 7 

1022 DIM AD(14},EF(4),E(4),GJ(7),KL(4), 
MP{7),QT(7),UZ(14),SP(7),S1{4),S2(7), 
BL(4) 

1023PMODE4,1:PCLS1:SG = PEEK(188) f 256 

1024 GOSUB 1500 

1025 GET(0,0) - (15,23),AD,G:PCLS1 

1026 GOSUB 1520 
1027GET(0,0)-(15,7),EF,G: 

GET(0,0)-(7,7),E,G:PCLS1 

1028 GOSUB 1500 

1029 GET(0,0)-(1 5,1 5),GJ,G:PCLS1 

1030 GOSUB 1520 

1031 GET(0,0)-(15,7),KL,G:PCLS1 
1032 GOSUB 1500 

1033 GET(0,0) - (15,1 5),MP,G:PCLS1 

1034 GOSUB 1500 

1035 GET(0,0) - (15,1 5),QT,G:PCLS1 
1036GOSUB1500:SG = SG + 512: 

GOSUB 1520:SG = SG 512 




1037 GET{0,0)H15,23),UZ,G:PCLS1 

1038 GET(0,0)-(1 5,1 5),SP,G 
1039GET(0,0)-(7,7),S1,G 
1040GET(0,0)-(15,7),S2,G 
1041 PCLS0:GET(0,0)-(7,7),BL,G 
1050 DATA 15,63,127,255,255,255,255, 

127 
1060 DATA 240,252,254,255,255,255, 

255,254 
1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,224, 

192,96 
1090 DATA 32,96,255,255,96,32,0,0 
1100 DATA 5,10,252,252,10,5,0,0 
11 10 DATA 1,64,17,40,16,0,0,161 
1120 DATA 128,2,136,20,8,0,0,133 
1130 DATA 161,0,0,16,40,17,64,1 
1140 DATA 133,0,0,8,20,136,2,128 
1 1 50 DATA 48,48,48,48,1 1 1 ,1 1 1 ,48,48 
1160 DATA 12,12,12,12,246,246,12,12 
1170 DATA 7,31,49,57,127,112,237, 

255 
1180 DATA 224,248,140,204,254,14, 

183,255 
1190 DATA 127,59,51,99,115,35,6,12 
1200 DATA 254,108,102,51,49,25,24,48 



i to / 





1210 DATA 7,31,49,51,127,112,235,255 
1220 DATA 224,248,140,156,254,14, 

215,255 
1230 DATA 127,51,50,27,25,50,112,224, 
1240 DATA 254,204,1 08,-1 02,54,22,3,6 
1250 DATA 15,31,19,55,55,63,63,15 
1260 DATA 240,248,248,252,252,252, 

252,240 
1270 DATA 251,219,139,219,219,251, 

247,239 
1280 DATA 252,254,254,254,254,254, 

254,252 
1 290 DATA 95,1 27,31,31 ,31 ,63,1 27, 127 
1300 DATA 188,188,188,188,188,124, 

252,248 
1310 HS = 
1320 RETURN 
1500 FOR CL=0 TO 1:F0R CH = TO 1: 

FOR L = TO 7:READ J:POKE SG + CL* 

256 + CH + L f 32,255-J:NEXT L,CH,CL 
1510 RETURN 
1520 FOR CH = 0TO 1:F0R L=0TO 7: 

READ J:P0KE SG + CH + L"32,255-J: 

NEXT L,CH 
1530 RETURN 
1600 DATA R6D8L6U8BR8,BR6ND8BR2,R6D4 

L6D4R6BR2BU8,R6D4NL3D4NL6BR2BU8, 

D4R6D4U8BR2,NR6D4R6D4L6BE8 
1610 DATA D8R6U4L6U4BR8,R6ND8BR2, 

R6D8L6U8D4R6U4BR2,D4R6D4U8L6BR8 
1620 FOR l = TO 9:READ NU$(I):NEXT 
1625 DRAW "C1;S2" 
1630 RETURN 

1650 N$ = STR$(NU):FOR 12 = 2 TO LEN(NS) 
1660DI=ASC(MID$(N$,I2,1))-48:DRAW 

NU$(DI) + "BR2":NEXTI2:RETURN 
1700COLOR0:LINE(178,2)-(200,7),PSET, 

BF:NU = HS:DRAW"C1;BM178,2": 

GOSUB1650:RETURN 

This section of program stores the DATA for 
the UDGs for the balloon and the spider in 
arrays B (or b) and S (or s) — the arrays are 
DIMensioned in Line 1000. 

Lines 1010 and 1020 define the initial 
values of the pointers to the arrays, before the 
UDGs are set up. Finally, Line 1310 sets the 
high score to zero. This line has been placed 
here as it has to be executed only once during 
the program. 

The Dragon/Tandy program has an extra 
routine starting at Line 1600 which DRAWs 
numbers on the high resolution screen. 
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3090 GOSUB 5000 

3150 PAPER 0: BORDER 0: CIS 

3160 FOR x = TO 28: PRINT AT 3,x; INK 0; 

PAPER 6;"D";AT0,x,"D": NEXTx: 

GOSUB 6000 
3170 POKE 23607,60: PRINT AT 0,0; INK 0; 

PAPER 6;"L = ";level;" □ □ B = ";bl; 

"DD 'Y'SC = ";score;AT 0,20;"HI = "; 

hiscore 
3180 POKE 23607,252 
31 90 FOR y = 5 TO 21 : PRINT AT y,30; INK 

6;"kl": NEXT y 
3200 POKE 23607,252 
3210 GOSUB 4000 
3220 GOSUB 4200 
3240 RETURN 

SStajri 

3000SC = 0:LV = 1 
3010MY = 15 

3020 BL = 15 + 5"LV:AX = 29:AY = 16: 
DD = 0:PP = 3 



GAME INITIALIZATION 



3000 LET score = 0: LET level = 1 

3010 LET my = 15 

3020 LET bl = 1 5 + 5'level: LET ax = 29: LET 
ay = 16: LET dead =0: LET props =3 




3090 GOSUB 5000 

3150 PMODE4,1:COL0R 0,1:PCLS:SCREEN1,1 

"3160 FOR X = TO 28:PUT(X*8,24)- 
(X*8 + 7,31),BL,PSET:PUT(X*8,0)- 
(X*8 + 7,7),BL,PSET:NEXTX:GOSUB 6000 
3165 DRAW "S4;BM2,2;C1;D4R3BR2BU1 
R2BU1L2;BM48,2;D4R4U2L4R3U2L3BR6 
BD2R2BD1L2;BM100,2;L4D2R4D2L4BR6 
NR4U4R4;BM160,2;D4U2R4D2U4BR2R4L2 
D4L2R4;S2" 

3170 DRAW "C1;BM14,2;":NU = LV:GQSUB 
1650:DRAW "BM58,2;":NU = BLGOSUB 
1650:DRAW "BM114,2;":NU = SC:GOSUB 
1650:DRAW"BM178,2;":NU = HS: 
GOSUB 1650 

31 90 FOR Y = 5 TO 21 :PUT(240,Y*8) - (255, 
Y*8 + 7),KL,PSET:NEXTY 

3210 GOSUB 4000 

3220 GOSUB 4200 

3240 RETURN 

Lines 3000, 3010 and 3020 set the score to 
zero and level to one, and initialize a series of 
variables. Line 3150 sets the screen colours, 
and Lines 3160 and 3170 display the score 
and other information. 

Something should be said about the POKEs 
in Lines 3170 and 3180 of the Spectrum 
program. Memory location 23607 stores a 
pointer to the character set. Usually this 
location has the value 60, which points to the 
normal ROM character set. In this program, 
though, the characters have been placed in an 
area which is referenced by POKEing 23607 
with 252 instead. Line 3180 POKEs 23607 
with 252 so the program can use the lower 
case letters as graphics, but still allows you use 
of numerals and upper case letters. 

The program reserves an area of memory, 
using CLEAR, and plants the UDGs there. 
The CLEAR has to be executed as part of the 
main program because of the way it affects 
the execution of the subroutines. This will be 
done in the second part of this game — if you 
want to run this part of the program before 
then, type CLEAR 65287 first. 

Line 3190 draws the ladder, and the two 
subroutine calls draw Freddy and the spider. 



FREDDY AND THE ARROW 



4000 INK 7: PRINT AT my,30;"uv";AT my + 1, 
30;"wx";AT my + 2,30;"vz": IF ax = 29 
THEN PRINT AT ay,ax;"e"; 

4010 RETURN 

4110 INK 7: PRINT AT ay,ax;"ef": RETURN 



ssu 



4000 PUT(240,MY"8} - (255,MY*8 + 23},UZ, 
PSELIF AX = 29 THEN PUTfAX^AY'S)- 
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Freddy and the spider from Mars 
shown in full flight on the Spectrum 



More detailed colour graphics in the 
Commodore version of the game 



(AX'8 + 7,AY*8 + 7},E,PSET 
4010 RETURN 
41 1 PUT{AX*8,AY*8) - (AX'B + 1 5,AY*8 + 7), 

EF,PSET:RETURN 

This routine simply draws Freddy on the 
ladder, and the arrow. Freddy's position is 
determined by the value of MY (or my). 
Similarly, Line 4110 will draw the arrow at 
any position on the screen, according to the 
values of AX and AY (or ay and ax). 



THE MARTIAN SPIDER 



4200 IF s(picture) = 1 THEN GOTO 4250 
4210 PRINT AT s(ypos},s(xpos);"mn";AT 

s(ypos) + 1,s(xpos);"op": RETURN 
4250 PRINT AT s(ypos),s(xpos);"qr";AT 

s(ypos) + 1,s(xpos);"st": RETURN 

mkM 

4200 X2 = S(XP)*8:Y2 = S(YP)'8:IF S(PI) = 1 

THEN 4250 
4210PUT(X2,Y2)-(X2 + 15,Y2 + 15),MP, 

PS ET; RETURN 
4250 PUT(X2,Y2) - (X2 + 1 5,Y2 + 1 5),QT, 

PSET: RETURN 

This routine is very similar to the other 
printing routines, but it has to be slightly 
more subtle because there are two images to 
play with. Both images are printed at the same 
place on the screen, one after the other, so the 
spider's legs appear to move. 



THE BALLOON GOES UP 



4300 PRINT AT b(ypos},b(xpos); BRIGHT 1; 
INK b(colour);"ab";AT b(ypos) + 1,b(xpos); 
"cd": RETURN 



5000 LET range = INT (RND*6) 

501 LET b(xpos) = (4'range) + INT (RND'4) 

5020LETb(ypos} = 20 

5030 LET b(maxcount) = 5 - level 

5040 LET b(count) = 1 

5050 LET b(colour) = INT (RND'5) + 3 

5060 LET b(points) = 10- range 

5070 RETURN 

S£0 

4300 X2 = B(XP)*8:Y2 = B(YP)*8:PUT(X2, 

Y2) - (X2 + 1 5,Y2 + 23),AD,PSET:R ETURN 
5000RG = RND(6)-1 
5010B(XP) = (4*RG) + RND(4)-1 
5020B(YP) = 20 
5030B(MC) = 5-LV 
5040B(CT} = 1 
5060B(PO) = 10~RG 
5070 RETURN 

Line 4300 simply draws the balloons on 
screen. 

The remaining lines inflate a new balloon 
once the previous one has been popped by an 
arrow, or by reaching the beast's cage. Ball- 
oons may appear at any one of six places at the 
bottom of the screen, and then float vertically 
upwards. MAXCOUNT or (maxcount) deter- 
mines how often the balloon is moved and 
hence its apparent speed, and is related to the 
level the game has reached. The colour of the 
balloon is chosen in the Spectrum version, 
and finally the points value of the balloon is 
set according to how close it is to Freddy's 
ladder. 



THE DOORS 



6000 IF level < > 1 THEN POKE 23607,60: 
PRINT AT s(ypos),s(xpos);"D D";AT s(ypos) 



+ 1,s(xpos);"D □": POKE 23607,252 
6010 FOR x = 10 TO 30 STEP 9 
6020 PRINT INK 6;AT 1,x;"?";AT 2,x;">" 
6030 NEXT x 
6040 LET s(xpos) = 1 : LET s(ypos) = 1 : LET 

s(xinc) = 1 : LET s(yinc) = 0: LET 

s(count) = 4: LETs(maxcount)=4: LET 

s{picture) = 1 
6050 RETURN 



L*HT 



6000IFLV<>1 THENX2 = S(XP)*8:Y2 = S 

(YP)*B: PUT(X2,Y2) - (X2 + 15 } Y2 + 1 5), 

SP PSET 
6010 FOR X = 10 TO 30 STEP 9 
6020 PUT(X'8,8) - (X*8 + 7,1 5),BL,PSET:PUT 

(X"8,16)-(X'8 + 7,23),BL,PSET 
6030 N EXT X 
6040 S(XP) = 1 :S(YP} = 1 :S(XI) = 1 :S(YI) = 0: 

S(CT) = 4:S(MC) = 4:S(PI) = 1 
6050 RETURN 

Three doors are drawn in the Spider's cage to 
keep it imprisoned. Spectrum owners note 
that the ? character is in fact a blob, obtained 
from the 8 key while in graphics mode. 



The Commodore program is different from 
the rest, so slightly different aspects of the 
program will be covered here. 



GRAPHICS INITIALIZATION 



10 POKE 51,255:POKE 52,47:POKE 55,255: 
POKE 56,47:CLR:PRINT"nPLEASE 
WAIT. . ." 

15 GOSUB 1000 

999 G0T0999 

1000 POKE 56334,0:POKE 1,51:F0R l = TO 
64'8-1:POKE12288 + l,PEEK(53248 + l): 
NEXT I 
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1010 POKE 1,55:POKE 56334,1 

1020 FOR Z = 13312 TO 13527:READ X: 

POKEZ,X:NEXTZ:RETURN 
1050 DATA1 5,63,1 27,255,255,255, 

255,127 
1 060 DATA240,252,254,255,255,255, 

255,254 
1070 DATA1 27,63,63,31, 15,7,3,6 
1 080 DATA254,252,252,248,240,224, 

1 92,96 
1 090 DATA32,96,255,255,96,32,0,0 
1100 DATA5,1 0,252,252,1 0,5,0,0 
1110 DATA1, 64,1 7,40,16,0,0,161 
1120 DATA1 28,2,1 36,20,8,0,0,1 33 
1130 DATA1 61 ,0,0,1 6,40,1 7,64,1 
1140 DATA1 33,0,0,8,20,1 36,2,1 28 
1 1 50 DATA48,48,48,48,1 1 1 ,1 1 1 ,48,48 
1160 DATA1 2,1 2,1 2,1 2,246,246,1 2,1 2 
1 1 70 DATA7,31 ,49,57,1 27,1 1 2,237,255 
1180 DATA224,248,1 40,204,254,14, 

183,255 
1190 DATA1 27,59,51, 99,1 15,35,6,1 2 
1 200 DATA254,1 08,1 02,51 ,49,25,24,48 
1 21 DATA7.31 ,49,51 ,1 27,1 1 2,235,255 
1220 DATA224,248,1 40,1 56,254,1 4, 

215,255 
1 230 DATA1 27,51 ,50,27,25,50,1 1 2,224 
1 240 DATA254,204,108,1 02,54,22,3,6 
1250 DATA5,31, 19,55,55,63,63,1 5 
1260 DATA240,248,248,252,252,252 

252,240 
1270 DATA251, 21 9,1 39,21 9,21 9,251 

247,239 
1280 DATA252,254,254,254,254,254 

254,252 
1 290 DATA95,1 27,31 ,31 ,31 ,63,1 27,1 27 
1 300 DATA1 88,1 88,1 88,1 88,1 88,1 24, 

252,248 
1310 DATA239,239,239,0,247,247, 

247,0 

This routine contains all the DATA needed for 
setting up the graphics. UDGs are set up for 
Freddy, the Spider, the ladder, and the 
platforms at the top and bottom of the screen 
by POKEing into memory, after Line 10 clears 
sufficient space for them. 



ERECTING THE SCREEN 



20 POKE 53272,28: GOSUB 2000 
2000 POKE 53280,0:PQKE 53281, 0:PRINT 
'□EUL=IJ0|JfeltJB = fe|20U 

UUUU sc U0UUUUUU 

2010 FOR Z = 1T0 2:PRINT".anzZZZZZZZZ 

zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz h 

SH";:NEXTZ 

2015PRINT"@aHS"; 
2020 F0RZ = 1T0 2:PRINT"3 

UUUUUUUUUUU) 
UUI1UUUUUUUIJ 



UUUUUUUUUUU 

|J||)":NEXTZ 
2030 PRINT TAB(36)"HajK":PRINT 

"□";:F0R Z = 1-T0 16:PRINT SPC(36) 

"OaJK'*:NEXTZ 
2040FORZ = 1TO2:PRINT"ag|ZZZZZZZZZZ 

□ ZZZZZZZZZZH UILUllll ^ ZZZZZZZ 

ZZZH"; 
2050 NEXT Z: RETURN 

Line 20 switches to the new character set and 
then jumps to the routine at Line 2000. The 
screen is drawn, including the score and high 
score positions. Line 2010 draws the spider's 
cage, 2030 the ladder, and 2040 the ground. 



Part one sees the graphics set up and the game 
initialized. 



GRAPHICS INITIALIZATION 



670 DEFPROCINITIALIZE 
680 DIM B%(6),S%(7) 

690 VDU 23,1, 0;0;0;0; 

700 XP0S% = 1 :YP0S% = 2:CLR% = 3: 

P0INTS% = 4:CNT% = 5:MAXC0UNT% = 
710 VDU 19,1,2,0,0,0,19,2,5,0,0,0 
720 XINC% = 3:YINC% = 4:PICTURE% = 7 
730 FOR l% = TO (27'8)-1:READJ%:? 

(&C00 + l%)=J%:NEXTI% 
740 DATA 15,63,127,255,255,255, 

255,127 
750 DATA 240,252,254,255,255,255, 

255,254 
760 DATA 127,63,63,31,15,7,3,6 
770 DATA 254,252,252,248,240,224, 

192,96 
780 DATA 32,96,255,255,96,32,0,0 
790 DATA 5,10,252,252,10,5,0,0 
800 DATA 1,64,17,40,16,0,0,161 
810 DATA 128,2,136,20,8,0,0,133 
820 DATA 161,0,0,16,40,17,64,1 
8'30 DATA 133,0,0,8,20,136,2,128 
840 DATA 48,48,48,48,1 1 1 ,1 1 1 ,48,48 
850 DATA 12,12,12,12,246,246,12,12 
860 DATA 7,31,49,57,127,112,237,255 
870 DATA 224,248,140,204,254,14, 

183,255 
880 DATA 127,59,51,99,115,35,6,12 
890 DATA 254,108,102,51,49,25,24,48 
900 DATA 7,31,49,51,127,112,235,255 
910 DATA 224,248,140,156,254,14, 

215,255 
920 DATA 127,51,50,27,25,50,112,224 
930 DATA 254,204,108,102,54,22,3,6 
940 DATA 15,31, 19,55,55,63,63,1 5 
950 DATA 240,248,248,252,252,252, 

252,240 
960 DATA 251,219,139,219,219,251, 

247,239 
970 DATA 252,254,254,254,254,254, 



254,252 
980 DATA 95,1 27,31 ,31 ,31 ,63,1 27,1 27 
990 DATA 188,188,188,188,188,124, 

252,248 
1000 DATA 255,255,255,255,255,255, 

255,255 
1010HISCORE% = 0:ENDPROC 

Arrays B and S hold DATA concerned with the 
balloon and the spider. Integer arrays are 
DIMensioned in Line 680 to economize on 
memory. Line 690 switches off the cursor, 

Line 700 initializes a series of variables 
which are used to access the DATA in the arrays 
when setting up the UDGs. Finally, Line 
1010 sets the high score to zero, and is placed 
here as it occurs only once in the program. 



GAME INITIALIZATION 



1020 DEFPROCGAMEINIT 

1030SCORE% = 0:LEVEL% = 1 

1040 MY% = 15:BL% = 15 + 5'LEVEL%: 

AX% = 29:AY% = 1 6: DEAD% = 0: 

PR0PS% = 3 
1050PROCMAKEBALLOON 
1060 COLOUR2:FORX% = TO 28: PRINT 

TAB(X%,3);CHR$(154);TAB{X%,0);CHR$ 

(154):NEXTX% 
1070PROCDRAWDOORS 
1080 COLOUR130:COLOUR0:PRINT TAB 

(0,0);"L = ";LEVEL%;"nrJB = ";BL%; 

"□□SC = ";SC0RE% 
1090 PRINT TAB(20,0);'HI = ";HISCORE%: 

COLOUR128:C0LOUR2 
1100 C0LOUR2:F0R Y% = 5 TO 2LPRINT 

TAB(30,Y%);CHR$(138);CHR$(139}:NEXT 

Y% 
1110PROCDRAWMAN 
1120PROCDRAWSPIDER 
1130 ENDPROC 

In this PROCedure, the score, the level, and a 
whole series of variables are set. 

Line 1050 calls PROCMAKEBALLOON, 
which will be explained a little later, but 
draws a new balloon on screen. 

The next section of the program sets up the 
screen. Line 1060 draws the platform along 
the top of the screen, and Line 1070 draws the 
props. Game information is displayed by 
Lines 1080 and 1090. Freddy's ladder is 
drawn by Line 1 1 00, and Freddy and the 
spider by calling the appropriate PROCedures. 



FREDDY AND THE ARROW 



1140DEFPROCDRAWMAN 

1150 COLOUR 3 

1160 PRINT TAB(30,MY%)CHR$(148)CHR$ 
(149) TAB(30,MY% + 1)CHR$(150)CHR$ 
(1 51 ) TAB(30,MY% + 2)CHR$(1 52}CHR$ 
(153} 

1170 IF AX% = 29 THEN PRINT TAB (29, 
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MY% + 1)CHR$(132) 
1180 ENDPROC 

1190DEFPROCDRAWARROW 

1200 COLOUR:PRINT TAB(AX%,AY%)CHR$ 

(132)CHR$(133) 
1210 ENDPROC 

PROCDRAWMAN simply draws Freddy on the 
ladder. Freddy's position is determined by 
the value of MY%. In a similar way, 
PRACDRAWARROW will draw the arrow at any 
position on the screen, according to the values 
ofAX%andAY%. 



THE MARTIAN SPIDER 



1220DEFPROCDRAWSPIDER 

1230COLOUR1 

1240 IF S%(PICTURE%) = 1 THEN 1260 

1250 PRINT TAB(S%(XPOS%),S%(YP0S%)) 
CHR${140)CHR$(141)TAB(S%(XPOS%), 
S%(YPOS%) + 1}CHR$(142)CHR$(143): 
ENDPROC 

1260 PRINT TAB(S%(XP0S%),S%(YPOS%)) 
CHR$(H4)CHR$(145)TAB(S%(XPOS%), 
S%(YPOS%) + 1)CHR$(146)CHR$(147): 
ENDPROC 

This PROCedure is very similar to the other 
printing PROCedures, but it has to be slightly 
more subtle because there are two images to 
play with. Both images are printed at the same 
place on the screen, one after the other, so the 
spider's eight hairy legs appear to move as it 
scuttles backwards and forwards in its cage. 



THE BALLOOM GOES UP 



1270DEFPROCDRAWBALLOON 

1280 COLOUR B%(CLR%):PRINT TAB(B% 
(XPOS%),B%{YPOS%))CHR$(128)CHR$ 
(1 29)TAB(B%(XPOS%),B%(YPOS%) + 1) 
CHR$(130)CHR$(131):ENDPROC 

1290DEFPROCMAKEBALLOON 

1300 RANG E% = RND(1)*6 

1310 B%(XP0S%) = (4"RANGE%) + RND 
(1)*4 

1320 B%(YPOS%) = 20 

1330 B%(MAXCOUNT%) = 5- LEVEL% 

1340B%(CNT%) = 1 

1350B%(CLR%) = RND(3) 

1360 B%(POINTS%) = 10-RANGE% 

1370 ENDPROC 




Line 1280 in PROCDRAWBALLOON 
simply draws the balloons on 
screen, according to the values 
ofXP0S%andYP0S%. 

PROCMAKEBALLOON-L) 
1290 to 1370— inflate a new 
balloon once the previous one h 
been popped by an arrow, or 
by reaching the beast's cage 
Balloons may appear at anjv 
one of six places at the 
bottom of the screen, art 
then float vertically upwar 
MAXC0UNT% determines how 
often the balloon is moved, and 
is related to the level the game has 
reached. And finally the points value 
of the balloon is set according to 
how close it is to Freddy's ladde 



THE DOORS 



1380DEFPROCDRAWDOORS 

1390 C0L0UR2:IF LEVEL%<>1 THEN •. 

PRINT TAB(S%(XP0S%),S%(YP0S%)) 

" D"TAB(S%(XPOS%},S%(YPOS%} + 1 ) " D 
1400 FOR X% = 10 TO 30 STEP 9 
1410 PRINT TAB(X%,1)CHR$(154)TAB(X%,2) 

CHR$(154) 
1420 NEXT X% 
1 430 S%(XP0S%) = 1 :S%(YP0S%) = 1 : 

S%(XINC%) = 1 :S%(YINC%) = 0:S% 

(PICTURE%) = 1 
1440 ENDPROC 

Three locks are drawn in the spider's cage by 
PROCDRAWDOORS to keep it imprisoned. 
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WORKING WITH 
SPREADSHEETS 



Here is the last part of the program. 
Type it in now and you can start to 
fill in the details and use the 
spreadsheet. The instructions explain 
exactly what to do 



If you add these remaining lines you will have 
a complete, working spreadsheet program, so 
LOAD in the first parts now and enter the last 
section listed below. A few examples were 
given in the earlier parts showing how you 
might set up a spreadsheet. Now you can find 
out the details of how to use the individual 
programs — which keys do what and so on. 
The general instructions that follow are the 
same for all the programs but there are a few 
differences in the commands and these are 
listed in the individual sections for each 
machine at the end. 



ENTERING EQUATIONS 



It is the ability to enter equations into the 
spreadsheet that makes it so versatile. Don't 
be put off by the word 'equations' though, as 
these use no more than simple arithmetic such 
as adding columns together, totalling a whole 
row or working out percentages for VAT, 
discount, depreciation and so on. 

The operators used are plus, minus, multi- 
ply, divide, percent, row and column totals; 
+j — ,',/,%,& and $. Equations are entered 
by specifying the name of the first cell, then 
the name of the second cell and then the 
operator. A few examples will help. Entering 
A1 B1 + in cell CI adds the contents of Al and 
Bl and displays it in cell CI. The equation 
A1A10$ sums all the contents in column A 
from row 1 to row 10. Similarly, A6F6& sums 
all the entries in row 6 from column A to 
column F. Finally, A5B2% is worked out as 
A5"B2/100 and gives B2 percent of A5. The 
equations are entered into the cell in which 
you want the answer to appear. The Acorn, 
Dragon and Tandy programs also allow you 
to add a number after the equation to specify 
the number of decimal places that will appear 
in the answer. 



COPYING 



All the programs allow you to copy or 
replicate the contents of a cell. This saves you 
having to type in the same thing over and over 
again when you want a value or equation 
repeated in several cells. You can choose to 
copy something either absolutely or relatively. 
An absolute copy produces an exact replica of 
the cell anywhere else you choose — either in a 



single cell or along a section of a row or 
column. The relative copy is used specially 
for equations so that the equation is altered 
depending on the name of the row or column 
it is copied into. 

For example, if you have the equation 
A1 B1' in cell CI, you might want every cell in 
column C to multiply the numbers in the 
previous two columns together. So in C2 
you'd have A2B2* and so on. The relative copy 
does this for you. The procedure is as follows. 
First press the copy key (see below for the 
relevant key for each computer), then choose 
R for relative and enter the name of the cell 
you want copied (or on the Dragon and Tandy 
move the cursor to the correct cell). Then 
choose whether you want the cell copied along 
a row or column — press C in the case of this 
example. Finally enter the name of the start 
cell — say, CI — and the end cell — say, C10. 
The program then fills in the whole column 
for you. Try copying equations along rows as 
well, and try an absolute copy of equations 
and values. 



UNCHANGING CONSTANTS 



It is often necessary to enter constants into 
equations. These are likely to be numbers 
such as 15 for percentage VAT calculations, 
perhaps 5 or 10 for percentage discounts, 30 
for tax and so on. Numbers cannot be entered 
directly into an equation — which is only 
based on the contents of two cells — and the 
method of putting them in varies for the 
different computers. 

On the Spectrum the constant has to be 
preceded by the letter Z, so A1 Z1 5% works out 
VAT payable on the figure in Al. On the 
Commodore and Acorn computers the const- 
ants have to be entered into cells in column X. 
So in the last example, number 15 would be 
put into cell XI and VAT would be worked 
out as A1X1%. The Dragon and Tandy 
program is much the same as this except the 
constants are entered into column Z. 

The reason for having a special method for 
dealing with constants is that these numbers 
or cells must stay the same even when copied 
relatively. Reserving a special letter or a 
special column for the constants ensures that 
these are treated separately. 



USING THE PROGRAM 



As mentioned, the specific details of how 
values, labels and equations are entered into 
the computer and how all the operations are 
performed varies between the four computers 
so these are listed separately below. 



The Spectrum program takes a little while to 
set up so you'll see a blank screen for a while 
after you type RUN. The screen starts off in 
the values mode which means you can insert 
numbers or labels. Press E to swap to the 
equations mode and V to swap back again. To 
insert anything into a cell use the cursor key to 
move to the correct cell, then press I (for 
Insert) and type in the entry. 

Equations are displayed on a yellow back- 
ground, values on black and labels on blue. A 
label is anything entered into the values 
screen that starts with an alphabetic character. 
The colours show through each sheet so you 
can see which cells contain equations even 
when you are looking at the values screen, and 
vice versa. 

Only four columns and ten lines fit on the 
screen at any one time but you can move to 
other parts of the sprea dsheet by press ing the 
cursor keys along with [SYMBOL SHIFT] . 

Try inserting a few values and labels, then 
swap to the equations screen and try adding 
cells together, working out percentages and 
summing columns and rows. To see the 
results of the calculations swap back to the 
values screen, press C and [SYMBOL SHIFT] to 
calculate the values. If any numbers are too 
big to fit into a cell, the rightmost digits that 
overflow will be cut off and the remaining 
number will flash as a warning. 

Now try copying some equations and 
values using the Z key. The program will 
prompt you to enter all the necessary details. 

Finally, here is a list of all the commands 
used by the program: 
V display values screen 

E display equations screen 

I insert an entry into a cell 

I followed by [ENTER I delete a value or 

label 
1 followed by # delete an equation 
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GENERAL INSTRUCTIONS 



HOW TO ENTER THE 



USING CONSTANTS IN THE 



EQUATIONS 



ABSOLUTE AND RELATIVE 



COPYING 



EQUATIONS 



SPECIAL INSTRUCTIONS FOR 
EACH COMPUTER 



FINISHING OFF THE PROGRAM 
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SPACE 



plus [SYMBOL SHIFT l calculate the 

values of any equations 

plus | SYMBOL SHIFT] abort calculation 
Z copy a cell 

S plus ISYMBOL SHIFT] save data to tape 

J plus iSYMBQLSHIFTl load data from 

tape 
P print screen on ZX or Alphacom 

printer 
Cursor keys move cursor 
Cursor keys plus |SYMBQL SHIFT] move 

window 



When you RUN the program you'll see four 
columns and 15 rows of the spreadsheet, but 
you can move to other parts of the sheet using 
the cursor keys or the function key [ft]. Six 
function keys are used to control the program 
and these are listed at the bottom of the 
screen. Here's a description of what each of 
the keys do: 

[fjj swap between values and equations 

screen 

[5] alter a cell 

ffl\ copy a cell 

[f4| calculate results of equations 

[ft] move window 

H save data and exit program 

To make an entry, first make sure you are on 
the correct screen for the type of entry you 
want to make, then press |f| and type in the 
value, label or equation. A label is anything 
entered on the values screen that starts with 
an alphabetic character. 

To copy a cell, press |f3] and you will be 
prompted to enter all the necessary details. 
Press [?4] to calculate the equations. If any 
number is too big to fit into a cell then the 
words TOO BIG will be printed instead. 

Use [ft] to move to a different part of the 
screen by specifying the cell you want to see in 
the top left-hand corner. 

Try entering some values and equations 
into the sheet and practise copying, both 
absolutely and relatively, and calculating the 
results of equations. 



The Acorn program uses the function keys to 
control the program and when you RUN the 
program these are listed at the bottom of the 
screen underneath the spreadsheet. Only a 
small part of the spreadsheet is visible at any 
time but you can move the 'paper' under the 
window with the cursor keys, or with [f4] for a 
large move. 

Key [f|] swaps between values and equa- 
tions screens and [FT] lets you make an entry 
into a cell. Key [j5] calculates the values of any 



equations and displays the results on the 
values screen. If a number is too big to fit into 
a cell then the words TOO BIG are printed 
instead. 

The Acorn program allows you to specify 
the number of decimal places of any cal- 
culated value. The number can be entered at 
the end of an equation, so A1BT2 will display 
the answer to two decimal places — useful 
when dealing with quantities of money. It is 
also useful if a number is likely to be too big as 
specifying zero decimal places may mean it 
will fit on the screen. 

Here is a list of the keys used: 



m 

m 
m 

[TAB 



ESCAP 



swap between values and equa- 
tions screen 
alter cell 
copy a cell 
calculate equations 
move window 
save data and exit program 
|] escape from current operation 
without losing data 



sau 



When you RUN the program you'll see just the 
top left-hand corner of the spreadsheet but 
you can move to any other part of the sheet 
with the cursor keys, or by pressing G for a 
large move. The V and E keys swap between 
the values screen and the equations screen. 
You can enter values or numbers on either 
screen but the results of calculations are only 
displayed on the values screen. To insert 
anything into a cell move the cursor to the 
correct cell then press I and type in your 
entry. 

Equations are entered as described earlier 
except that you can add a number to the end 
of the equation to specify the number of 
decimal places in the result. For example, 
A1B1/2 will display the result of Al divided 
by Bl to two decimal places, which is ideal for 
dealing with quantities of money. If the result 
of any calculation is too big to fit into a cell 
then the overflow message <OV> will be 
printed instead. Specifying zero decimal 
places in the equation that works out that 
result may mean that the answer will fit in 
the cell. 

Here is a list of all the keys used by the 
program: 



V 


display value screen 




RETURN 


E 


display equation screen 


1070 IF o$ = 


I 


insert label, value or 


equation 


RETURN 


C 


copy a cell 




1080 IF o$ = 


s 


save data to tape 




1090 IF o$ = 


L 


load data from tape 




1100 IF o$ = 


Q 


quit program 




RETURN 



Cursor keys move cursor and shift 'paper' 



910 IFz = 3 THEN LET v(1) = {C0DE 

s$(1))-64: LETv(2)=VALs$(2): LET 
v(3) = (CODE s${3)) - 64: LET v(4) = VAL 
s$(4T0 5):LETo$ = s$(6):RETURN 

920 IF z = 4 THEN LET v(1) = (C0DE 
s$(1 )) - 64: LET v(2) = VAL s$(2 TO 3): 
LET v(3) = (CODE s$(4)) — 64: LET 
v{4) =VAL s$(5 TO 6): LET o$ = s$(7): 
RETURN 

930 IF z = 5 THEN LET v(1) = (CODE 
s$(1))-64: LETv(2)=VALs$(2): LET 
v(3) = (CODEs$(3)}-64: LETv(4)=VAL 
S${4): LETo$ = s${5): RETURN 

940 IF z = 6 THEN LET v(1) = (C0DE 
s$(1)) -64: LET v(2) =VAL s$(2 TO 3): 
LET v(3) = (C0DE s$(4))-64: LET 
v(4)=VALs$(5): LETo$ = s${6): RETURN 

950 IF z = 7 THEN LET v(1 ) = {CODE 
s$(1 )) - 64: LET v{2) = VAL s$(2) : LET 
v(3) = (CODE s$ (3}) - 64: LET v(4) = VAL 
s$(4T0 5): LET o$ = s$(6): RETURN 

960 IF z = 8 THEN LET v(1) = (CODE 
s$(1 }) - 64: LET v{2) = VAL s$(2 TO 3): 
LETv(3) = (C0DEs$(4))-64: LET 
v(4) = VAL s$(5 TO 6): LET o$ = s$(7): 
RETURN 

970 IF z = 9 THEN LET v(1) = (CODE 
s$(1))-64:LETv(2)=VALs${2): LET 
v(3) = (CODE s$(3)) - 64: LET v(4} = VAL 
s$(4 TO 6): LET o$ = s$(7): RETURN 

980 IF z = 10 THEN LET v(1 ) = (CODE 
s$(1))-64: LET v(2) =VAL s$(2 TO 3): 
LET v{3) = (CODE s$(4)) -64: LET 
v(4)=VALs$(5T0 7):LETo$ = s$(8): 
RETURN 

990 LET v(1) = (C0DE s$(1)) — 64: LET 
v(2) = VAL s${2): LET v(3) = (CODE 
s$(3))— 64: LETv(4) = VALs$(4T0 7): 
LETo$ = s$(8): RETURN 

1000 RETURN 

1010 IF d$(v(2),v(1),1)>"9" THEN LET 
t = 0: RETURN 

1020 IF v(3) = 26 THEN LET b = v(4): LET 
a = VAL d$(v(2),v(1), TO 8): GOTO 1050 

1030 IF d$(v(4),v(3),1)>"9" THEN LET 
t = 0: RETURN 

1040 LETa = VALd$(v(2),v(1), TO 8): 
LETb = VALd$(v(4),v(3),T0 8) 

1050 IF o$ = "+" THEN LET t = a + b: 
RETURN 

1060 IF o$ = "-" THEN LET t = a-b: 

"/" AND b = THEN LET t = 0: 

"/"THEN LET t=a/b: RETURN 
"•"THEN LETt = a*b: RETURN 
"%"THENLETt = (a"b)/100: 

110 IF o$ = "$" THEN LET t = 0: FOR 
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s = v(2) TO v(4): LET t = t + VAL d$(s,v(1), 

TO 8): NEXTs: RETURN 
1120 IF o$ = "&" THEN LET t = 0: FOR 

s = v(1J TO v(3): LET l = t + VAL d$(v(2),s, 

TO 8): NEXTs: RETURN 
1130 RETURN 
1140 IF 2=1 THEN IF VAL a$(2) = OR VAL 

a$(4) = 0THEN LETf = 1: RETURN 
1150IFz = 2THENIFVALa$(2TO3)>30 

OR VAL a${2 TO 3) = OR VAL a$(5) = 

THEN LET f = 1 : RETURN 
1160 IF z = 3 THEN IF VALa${4 TO 5)>30 

OR VAL a${4 TO 5) = OR VAL a$(2) = 

THEN LET f = 1: RETURN 
1170 IF z = 4 THEN IF VAL a${2 TO 3)>30 

OR VAL a${5 TO 6) > 30 OR VAL aS(2 TO 

3) = OR VAL a$(5 TO 6} = THEN LET 

f = 1: RETURN 
1180 IF z = 5 OR z = 7 OR z = 9 OR z = 11 

THEN IF VAL a$(2) = THEN LET f = 1 : 

RETURN 
1190 IFz = 6 OR z = 8 OR z = 10 THEN IF 

VALa$(2TO3) = 0ORVALa$(2TO 

3)>30THENLETf = 1: RETURN 
1200 LET 5$ = "DDDDDDDD": FOR 

g = 1 TOc: LET s$(g) = a$(g): NEXT g: 

GOSUB 890: IF o$ = "&" AND 

(v(1) > v(3) OR v(2) < > v(4)) THEN LET 

f = 1: RETURN 
1210 IF o$ = "$" AND (v(1}ov(3) OR 

v(2)>v(4)) THEN LET f=1: RETURN 
1220 LET f = 0: RETURN 
1230 LETg$ = d$(y + wy,x + wx,17) 
1240 PRINT FLASH + (g$ = "5" AND 

t$ = "VAL"); INK 0+(2 AND g$ = "4"); 

PAPER 7-{2 AND g$ = "2") -(g$ = "1" 

0Rg$ = "5");AT 

y'2 + 2,x"9 + 5;(d${y + wy,x + wx, TO 8) 

AND t$ = "VAL"); (d$(y + wy,x + wx,9 TO 

16) AND t$="EQU"): RETURN 
1250 BEEP .4,10 

i260LETs$="nnnnnnnn": let 

os = 
1270 PAUSE 20: PRINT AT cy*2, 

(cx-1)'9 + 5 + os; BRIGHT 1; OVER 

!;"□" 
1280 IF CODE INKEY$>31 AND CODE 

INKEY$< 128 THEN LET 

s$(os + 1) = INKEY$: PRINT AT cy*2, 

(cx-1)*9 + 5 + os;s$(os + 1): LET 

os = os + 1: GOTO 1350 
1290 IF CODE INKEY$ = 12 AND os>0THEN 

LET os = os — 1: LETs$(os+1) = " ": 

PRINT AT cy*2,((cx - 1 )*9) + 5 + os; OVER 

0; BRIGHT 0; u nn": GOTO 1270 
1300 IF CODE INKEY$ = 13 AND 

s$ = "□□□□□□□□" THEN 

RETURN 
1310 IF CODE INKEY$ = 13 AND t$ = "VAL" 

AND CODE s$(1)> 64 THEN LET 

d$(wy + cy - 1 , wx + ex - 1 ,1 7) = "2": 



LETd$(wy + cy-1, wx + cx-1, TO 

8) = s$:LETy = cy-1:LETx = cx-1: 

GOSUB 1230: RETURN 
1320 IF CODE INKEY$ = 13 AND t$ = "VAL" 

THEN GOSUB 1380: LET os = 0: LET 

d$(wy + cy - 1 ,wx + ex - 1 , TO 8) =s$: 

LET y = cy — 1 : LET x = ex — 1 : GOSUB 

1230: RETURN 
1330 IF CODE INKEY$ = 13 AND t$ = "EQU" 

THEN GOSUB 1380: LET os = 0: LET 

d$(wy + cy-1,wx + cx-1,9T0 16} = s$: 

LETx = cx-1:LETy = cy-1: GOSUB 

1230: RETURN 
1340 GOTO 1270 
1350 IFos = 8ANDt$ = "VAL"THEN BEEP 

.1,-10: GOSUB 1380: LET 

d$(wy + cy-1,wx + cx-1,T0 8)=s$: 

LETy = cy-1: LETx = cx-1: GOSUB 

1230: RETURN 
1360 IF os = 8 AND t$ = "EQU" THEN BEEP 

.1,-10: GOSUB 1380: LET 

d$(wy + cy-1, wx + cx-1, 9 TO 16) = s$: 

LET y = cy - 1 : LET x = ex - 1 : GOSUB 

1230: RETURN 
1370 GOTO 1270 
1380 PRINT AT cy'2, ((ex- 1)*9) + 

5 + os; BRIGHT 0; OVER 1;"D" 
1390 IF t$ = "EQU" THEN GOSUB 1490: 

RETURN 
1400 GOSUB 1410: PRINT AT cy*2, 

(cx-1)'9 + 5;s$: RETURN 

i4i0LETb$="nnnnnnnn 

000":FORu = 1TOos:LET 

b$(u + (8-os))=s$(u):NEXTu 
1420 FOR u = 1 TO 11 
1430 IF b$(u)<>"." THEN NEXTu 
1440 IF u> =11 THEN LET b$(9) = ".": LET 

s$ = b$(4T0): RETURN 
1450 LET w = 6-u 
1460 IF w<0 THEN LETw = ABS w + 1: LET 

s$ = b$(wT0w + 8):RETURN 
1470 LET s$ = "DDDDDDDn" 
1480 FOR u = 1 T0 8-w:LET 

s$(w+u) = b$(u): NEXTu: RETURN 
1490 IF s$(1) = "#" THEN LET 

s$= "□□□□□□□□": LET 

d$(wy + cy - 1 ,wx + ex - 1 ,1 7) = "0": 

RETURN 
1500 LET a$ = "": FOR z = 1 TO 8: LET 

a$ = a$ + (s$(z) ANDs$(z)o"D") 
1510 NEXT z: LET c = LENa$ 
1520 IF c<4 THEN LET d$(wy + cy-1, 

wx + ex -1,1 7) = "4": RETURN 
1530 RESTORE 1630: FOR z = 1 TO 11: LET 

f=0:READm$ 
1540 FOR w = 1 TOc 
1550 IF m$(w) = ' L A" THEN GOSUB 1650: IF 

f THEN GOTO 1610 
1560 IF m$(w) = "N" THEN GOSUB 1670: IF 

f THEN GOTO 1610 
1570 IF m$(w) ="0" THEN GOSUB 1690: IF 



f THEN GOTO 1610 

1 580 IF m$(w) = "Z" THEN GOSUB 1 71 0: IF f 

THEN GOTO 1610 
1590 NEXT w: GOSUB 1140: IF NOT f THEN 

LETs$="nnnnnnnn": for 

w = 1 TO c: LETs$(w) = a$(w): NEXTw: 

LETd$(wy+cy-1, 

wx + cx — 1,18) = CHR$z: LET 

d$(wy + cy — 1, wx + cx-1, 17) = 

"1": RETURN 
1600 GOTO 1620 
1610 NEXT z 
1620 LET d$(wy + cy-1, wx + cx-1, 

17) = "4": RETURN 
1630 DATA "ANANOOO'Y'ANNANOO", 

"ANANNOO","ANNANNO" 
1640 DATA "ANZNOOOO'7'ANNZNOOO", 

"ANZNNOOO","ANNZNNOO", 

"ANZNNNOO","ANNZNNNO", 

"ANZNNNNO" 
1 650 IF a$(w) > = "A" AND a$(w) < = "X" 

THEN RETURN 
1660 LET f = 1: RETURN 
1670 IF a$(w) > ="0" AND a$(w) < ="9" 

THEN RETURN 
1680 LET f = 1: RETURN 
1690 LETc$ = a$(w): IF c$ = " + " OR 

c$ = "-" OR c $ = "*" OR c$ = '7" OR 

c$ = "%" OR c$ = "$" OR c$ = "&" 

THEN RETURN 
1700 LET f = 1: RETURN 
1710 IF a$(w) = "Z" THEN RETURN 
1720 LET f= 1: RETURN 
1730 FOR y = 1 TO 30: FOR x = 1 TO 24: LET 

d$(y,x, TO 8) = " D Q D □ 0.00": LET 

d$(y,x,1 7) = "0": LET d$(y,x,1 8) = CHR$ 

0: NEXT x: NEXT y 
1740 RESTORE 1750: FOR x = USR "a" TO 

USR "c" + 7: READ a: POKE x,a: NEXT x: 

RETURN 
1750 DATA 8,8,8,8,8,8,8,8 
1760 DATA 0,0,0,255,0,0,0,0 
1770 DATA 8,8,8,255,8,8,8,8 
1780 INPUT "FILENAME ?";n$ 
1790 SAVE n$ DATA d$() 
1 800 PRINT # 1 ;AT 0,0;"PRESS V TO 

VERIFYD" 
1810 PAUSE 0: IF1NKEY$ = "v"0R 

INKEY$ = "V" THEN GOTO 1830 
1820 RETURN 

1830 VERIFY n$ DATA d$(): RETURN 
1840 INPUT "FILENAME ?";n$ 
1850 LOAD n$ DATA d$(): RETURN 



1720S$ = CHR$(13) + CHR$(145) + 

"DDDDDDOnDDDDDDD 

IIIIIIIIHII 
llllllllllllllllllllllllll 

HUH 

1730 W$ = "WRONG MODE FOR RELATIVE" 
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1740 GOSUB 590 
1750IFA$ = "4-"THEN RETURN 
1760 PRINF'ABSOLUTE OR RELATIVE"; 
1770 AA$ = "A":BB$ = "R":GOSUB 1280 
1780 IF TP = AND A$ = "R" THEN PRINT 

$$;W$;:FORW = 1TO1000:NEXT 
1790 IF TP = AND A$ = "R" THEN RETURN 
1800 IF A$ = "A" THEN K1=0 
1810IFA$ = "R"THENK1=1 
1820 PRINT S$; 

1830 PRINT"COLUMN OR ROW ALTER"; 
1 840 AA$ = "C":BB$ = "R":GOSUB 1 280 
1850 IF A$ = "C" THEN K2 = 1 
1860 IF A$ = "R" THEN K2 = 
1870 PRINT S$; 

1880 PRINT "nFROMCOL||"; 
1890 AA$ = "A":BB$ = "W":GOSUB 1250 
1 900 C1 = ASC(AS) - 64:PRINT A$ 
1910INPUT"ROW";R1 
1920 IF R1 <0 OR R1 >CM THEN PRINT 

TAB(6)"n";:GOTO1910 
1930PRINT"nTODDn"; 
1940IFK2 = 0THENAA$ = "A": 

BB$ = "W":GOSUB 1250:C2 = ASC 

(A$)-64:PRINTA$;:R2=R1 
1950 IF K2 = 1THEN C2 = C1:PRINT 

CHR$(C2 + 64);INPUT"DROWD"; 

R2 
1960 IF R2< R1 OR R2>RM THEN 1950 
1970 ON KV2 + K2 + TP/2 + 1 GOSUB1990, 

2020,2070,2070,2080,21 1 0,21 40,2260 
1980 RETURN 
1990 GOSUB 2400 
2000 FOR NN = C1 TO C2:GOSUB 2450:NEXT 

NN 
2010 RETURN 
2020 GOSUB 2400 
2030 FOR NN = R1 TO R2 
2040A$=LEFT$(D$(NN,C1),8): 

IF ASC(A$) = 128 THEN A$ = "D" + 

RIGHT$(A$,7) 



2050 D$(NN,C1)=A$+F$ 

2060 NEXT NN 

2070 RETURN 

2080 GOSUB 2410 

2090 FOR NN = C1 TO C2:GOSUB 2470: 

NEXT NN 
2100 RETURN 
2110 GOSUB 2410 
21 20 FOR NN = R1 TO R2:GOSUB 2440: 

NEXT NN 
2130 RETURN 

2140 GOSUB 241 0:GOSUB 2420 
2150 FF = 0:IFX1>9 THEN FF = 1 
2160AA$ = MID$(F$,2,1 + FF) 
2170 BBS = RIGHT$(F$,5-FF) 
2180 FOR NN = C1 TO C2 
2190 F$ = CHR$(64 + Y1) + AA$ + CHR$ 

(64 + Y2) + BB$ 
2200 IF LEN(F$)<8THEN F$ = F$ + 

"D":GOTO2200 
2210 GOSUB 2470 
2220 Y1=Y1+1:Y2 = Y2 + 1:IFY2<0 THEN 

Y2=-3 
2230 I F Y2 = 24 TH EN Y2 = 23 
2240 NEXT NN 
2250 RETURN 

2260 GOSUB 241 0:GOSUB 2420 
2270 FF = 0:1F X1 > 9 THEN FF = 1 
2280 IF X2> 9 THEN FF=FF + 1 
2290AA$ = MID$(F$,5 + FF,2) 
2300 FOR NN = R1 TO R2 
2310 X1S = RIGHT$(STR$(X1),LEN 

(STR${X1))-1) 
2320 X2$ = RIGHT$(STR$(X2),LEN 

(STR$(X2))-1) 
2330F$ = CHR$(Y1+64) + X1$ + CHR$ 

(Y2 + 64) + X2$ + AA$ 
2340IFLEN(F$)<8THEN F$=F$ + 

"D":GOTO2340 
2350 GOSUB 2440 
2360 X1 =X1 +1:X2 = X2 + 1:IF Y2= -3 



2370 IF Y2 = 24 THEN X2 = X2-1 

2380 NEXT NN 

2390 RETURN 

2400F$ = RIGHT$(D$(R,C),8): 

RETURN 
2410F$ = LEFT${D$(R,C),8): 

RETURN 
2420 GOSUB 2480:IF XI =0 THEN GOSUB 

2080:RETURN 
2430 RETURN 
2440 D${NN,C1 ) = F$ + RIGHT$(D$(NN,C1 ), 

8):RETURN 
2450 A$ = LEFT$(D$(R1,NN),8):IF 

ASC(A$) = 128 THEN A$ = "D" + 

R1GHT$(A$,7) 
2460 D$(R1,NN) = A$ + F$:RETURN 
2470 D$(R1,NN) = F$ + RIGHT$(D$(R1, 

NN),8):RETURN 
2480 F = 

2490Y1=ASC(M!DS(F$,1,1))-64 
2500X1=VAL(MID$(F$,2,2)) 
2510 IF X1>9 THEN F = 1 
2520Y2 = ASC(MID$(F$,(3 + F), 

D)— 64 
2530 X2 = VAL(MID$(F$,(4 + F},2)) 
2540 IF X2>9 THEN F = F + 1 
2550Q1$ = OP$:Q2$ = MID$(F$, 

5 + F,2) 
2560 GOSUB 2670 
2570D = VAL(MID$(F$,6 + F,1)) 
2580 RETURN 
2590 PRINT'TO START FROM: 

COL+ROWU"; 
2600 AA$ = "A":BB$ = "W":GOSUB 1250 
2610 PRINT A$:CS = ASC(A$)- 64 
2620 INPUT A$:V=VAL(A$) 
2630 IF V>RM-LM THEN V=RM-LM + 1 
2640 I F V < 1 THEN V=1 
2650 RS = V 
2660 RETURN 




Entering equations on the Spectrum 



Calculating the result on the values screen 
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2670 Q = 

2680 Q = Q + 1 

2690 IF MID$(Q1$,Q,1) = Q2$ THEN RETURN 

2700 IF Q<LEN(Q1$) THEN 2680 

2710 Q = 0: RETURN 



1770 REM arithmetic routines 
1780ans = FNv1 + FNv2:RETURN 
1790 ans = FNv1-FNv2: RETURN 
1800 ans =FNvTFNv2:RETURN 
1810 IF FNv2 = THEN ans = 0: 

RETURN ELSE ans = FNv1/FNv2: 

RETURN 
1820 ans = FNv2 , FNv1/100:RETURN 
1830 ans = 0:FOR n% = r1% TO r2% 
1840ans = ans + VAL(MID$(D$(n%,c1%),9, 

8)) 
1850 NEXT 
1860 RETURN 

1870 ans = 0:FOR n% = d%T0 c2% 
1 880 ans - ans + VAL(MID$(D$(r1 %,n%),9,8)) 
1890 NEXT 
1900 RETURN 
1910 ans =FNv1:RETURN 
1920 DEF PROCsave 
1930 CLS 
1940 PRINTTAB(0,5)"Do you wish to 

save'""currentdata(Y/N)?D"; 
1950 PROCgetabs ("Y","N") 
1960IFA$ = ' [ N" ENDPROC 
1970X = OPENOUT{"SprdDta") 
1980PRINT#X,0,0,""*" 
1990 FOR c = 1 TO Cols 
2000 FOR r = 1 TO Rows 
2010 IF LEFT$(D$(r,c),1) <>CHR$128 

PRINT#X,r,c,D$(r,c) 
2020 NEXT, 
2030 CLOSE #X 
2040 ENDPROC 
2050 DEF PROCIoad 



2060 PRINTTAB(0,5)"Do you wish to load"'" 

an existing file (Y/N)?D"; 
2070 PROCgetabs ("Y'Y'N") 
2080 IF A$ = "N" ENDPROC 
2085 PRINT'"PRESS PLAY ON RECORDER" 
2090X = OPENIN("SprdDta") 
2100 REPEAT 

2110 INPUT #X,r,c,D$(r,c) 
2120 UNTIL EOF#X 
2130 CLOSE #X 
2140 ENDPROC 
2150 DEF PROCclrp(A$,vpos) 
2160PRINTTAS(0,vpos)SPC20 

TAB(0,vpos)A$; 
2170 ENDPROC 
2180 DEF PROCreplicate 
2190vpos = VPOS 
2200 PROCcellin(vpos) 
2210PRINTTAB(0,vpos + 1}CHR$(129);CHR$ 

(Col + 64);Row; 
2220 PROCcIrp ("Absolute or 

Relative",vpos): PROCgetabs 

("A","R") 
2230 IF Type = AND A$ = "R" PRINT' 

CHR$129;"Wrong mode for relative": 

A$=INKEY$(200):ENDPROC 
2240 IF A$ = "A" k1 % = 0:A$ = "Abs" 
2250IFA$ = "R"k1% = 1:A$ = "Rel" 
2260PRINTTAB(7,vpos + 1)A$ 
2270 PROCclrp("Column or Row alter D", 

vpos):PROCgetabs("C","R") 
2280 IF A$ = "C" k2%=1:A$ = "Col" 
2290IFA$ = "R"k2% = 0:A$ = "Row" 
2300PRINTTAB(12,vpos + 1)A$ 
2310PROCclrp("FromD",vpos) 
2320 PROCgetbet("@","Y"):d% = 

ASC(A$)-64:PRINTA$; 
2330 REPEAT PRINTTAB(6,vpos}SPC(4);: 

VDU8,8,8,8:INPUT""r1%:UNT!Lr1%>0 

AND r1%<=Rows 
2340PRINTTAB(18,vpos + 1)CHR$(c1% + 



64};r1% 
2350 PROCclrp("ToD!Z[j",vpos) 
2360 IF k2% = 1 PRINTCHR${c1% + 64);: 

REPEAT PRINTTAB(6,vpos)SPC(4);:VDU8,8, 

8,8:INPUT""r2%:UNTIL r2%>r1% AND 

r2%<=Rows:c2% = d% 
2370 IF k2% = PROCgetbet("@","Y"): 

c2% = ASC(A$)-64:PR1NTA$;:r2% = r1% 
2380 PRINTTAB(22,vpos + 1)CHR$(c2% + 

64);r2% 
2390 ON k1%'2 + k2%+ Type/2 + 1 GOSUB 

2410,2440,2490,2490,2500,2530,2560, 

2680 
2400 ENDPROC 
2410GOSUB2800 
2420 FOR n% = d% TO c2%:GOSUB 

2850: NEXT 
2430 RETURN 
2440 GOSUB 2800 
2450 FORn% = r1%TOr2% 
2460 A$ = LEFT$(D$(n%,ct%),8):IF ASC 

(A$) = 1 28 A$ = " D " + RIGHT$(A$,7) 
2470D$(n%,c1%) = A$ + F$ 
2480 NEXT 
2490 RETURN 
2500GOSUB2810 
2510 FOR n% = d%TO c2%:G0SUB 

2870: NEXT 
2520 RETURN 
2530GOSUB2810 
2540 FOR n% = r1%TO r2%:GOSUB 

2840: NEXT 
2550 RETURN 

2560GOSUB2810:GOSUB2820 
2570f% = 0:IFx1%>9f% = 1 
2580a$ = MIDS(F$,2,1+f%) 
2590b$ = RIGHT$(F$,5-f%) 
2600 FOR n% = d% TO c2% 
2610 F$ = CHR$(64 + y1%) + a$ + CHR$ 

(64 + y2%) + b$ 
26201FLENF$<8F$=F$ + "D": 



U3X 1 >.Z 

B4 * 1 >.? 

B6X 1 V.J 
B7XIW 
BexiM? 



B2C2*2 
B3C3«2 
B4C4+2 
B5CS+2 
B6C6*2 
B7C?*2 

sec a*s 



Cursor Kt^js to 
< «0> Swap Modi 
<IZ> Copy call 
<T«e> to nil : 
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Cursor Keys to WW* <f4> Liror «ow» 
<(o> Swap Mod* <fl> Alter call 
<«2> Copy c»ll : <f3> C*lculiU 
<TbB> to •xlt : mm 



The equations screen on the Acorn 



Entering values and labels 
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GOTO2620 

2630 GOSUB 2870 

2640 y1 % = y 1 % + 1 :y2% = y2% + 1 : 

IFy2%<0y2%=-3 
2645 IF y1% = 24 OR y2% = 24 THEN 

n% = c2%: GOTO 2660 
2650 IF y2% = 25 y2%= 24 
2660 NEXT 

2655IFy1% = 25y1%=24 
2670 RETURN 

2680GOSUB2810:GOSUB2820 
2690f% = 0:IFx1%>9f% = 1 
2700IFx2%>9f% = f% + 1 
2710a$ = MID$(FS,5 + f%,2) 
2720 FOR n% = r1% TO r2% 
2730 F$ = CHR${y1% + 64) + STR$(x1 %) + 

CH R$(y2% + 64) + STR$(x2%} + 3$ 
2740IFLENF$<8F$ = F$ + "D": 

GOTO 2740 
2750 GOSUB 2840 
2760 x1 % = x1 % + 1 :x2% = x2% + 1 : 1 F 

y 2% = — 3 x2% = x2% — 1 
2765 IF x1% = 21 OR x2% = 21 THEN n% = 

r2%:G0T0 2780 
2770 IF y2% = 24 x2% = x2% - 1 
2775 IF y1% = 24 x1% = x1% — 1 
2780 NEXT 
2790 RETURN 

2800 F$ = RIGHT${D$(Row,Col),8):RETURN 
2810F$=LEFT$(D$(Row,Col),8):RETURN 
2820 PROCdecode:IF x1 % = GOSUB2500: 

RETURN 
2830 RETURN 
2840 D$(n%,c1%) = F$ + RIGHT$(D$(n%, 

d%),8):RETURN 
2850 A$ = LEFT$(D$(r1%,n%),8):IF 

ASC(A$) = 1 28 A$ = " D " + RIGHTS 

(A$,7) 
2860 D$(r1%,n%) =A$+ F$: RETURN 
2870D$(r1%,n%) = F$+ RIGHT$(D$(r1%, 

n%),8): RETURN 
2880 DEF PROCdecode 
2890 f% = 

2900y1% = FNc(1):x1% = FNr(2) 
2910IFx1%>9f% = 1 
2920 y2% = FNc(3 + f%):x2% = FNr(4 + f%) 
2930IFx2%>9f%=f% + 1 
2940op%=INSTR(Op$,MID$(F$,5 + f%)} 
2950d%=FNr(6 + f%) 
2960 ENDPROC 
2970 DEF PROCwindowstart 
2980 PRINT'To start from: 

Col + RowD";:PROCgetbet{"@","Y") 
2990 PRINTA$;:Colstart = ASC(A$)-64 
3000 IFColstart> Cols- 3 THEN 

Colstart=Cols-3 
3010INPUT""A$:v = VALA$ 
3020 I F v > Rows — Length □ v = Rows - 

Length + 1 
3030 IF v<1 v-1 
3040 Rowstart = v 



3050 ENDPROC 

3060 IF ERR = 17 THEN 170 

3070 REPORT:PRINT"DAT LINED" 

ERL:'FX4 
3080 END 



CHANGES FOR THE ELECTRON 



You'll need to make a few changes to the 
Acorn program so that it will run on the 
Electron. Delete Lines 140, 360, 440 to 480 
and 770 then change: 

10 MODE 6:*FX4,1 

50 DIM D$(Rows,Cols):VDU 23,128,0,0,0,0, 

0,0,0,0 
370 IF Type = PRINT"D"RIGHT$(D$ 

(r,c),8); 
380 IF Type = 8 PRINT" L~j"LEFT${D$ 

(r,c) ; 8); 
540 PRINT" < TAB > toexitDDrD"; 
1310 PRINT-WORKING" 
221 PRINTTAB(0,vpos + 1 )CH R$(Col + 64}; 

Row; 

22301FType = 0ANDA$ = "R" 
PRINT'"Wrong mode for relative": 
A$ = INKEY$(200):ENDPROC 



TAkd 



1490 PRINT @448: PRINT @448,;: IF LEN 
(D$(CC, CR))=1 THEN PRINT 
"NOTHING TO COPY": SOUND5,5: FOR 
K = 1 TO 500: NEXT: RETURN ELSEPRINT 
"aBSOLUTE OR rELATIVE COPY"; 

1500A$ = INKEY$:IFA$ = ""THEN1500 

1510 IF A$ = CHR$(13) THEN RETURN 

1520IFA$ = "A"THENTC = 1: 
GOTO1540 

1530 IF A$o"R" THEN 1490 ELSE 
TC = 

1540 PRINT(3448 

1550 IF TC = AND ASC(D$(CC,CR)) 
<>131 THEN PRINT@448,"WR0NG 
COPY MODE - EQUATIONS ONLY";: 
SOUND 1,5:FORD = 1TO500:NEXTD:GQTO 
490 

1 560 PRINT@448:PRINT@448,"cOLUMN 
OR rOW COPY"; 

1570 A$ = INKEY$:IFA$ = "" THEM 570 

1580 IF A$ = CHR$(13) THENRETURN 

1590IFA$ = "C"THENDC = 1:GOTO1610 

1600 IF A$ <>"R" THEN 1560 ELSE 
DC = 

1610 PRINT@448:PRINT@448,"START AT 
CELL";:INPUTA$:!FA$ = ""THEN 
RETURN 

1620S1=ASC(A$)-64:IFS1<1 OR 
S1> 25 THEN 1610 

1630S2 = VAL(MID$(A$,2)):IFS2<1 OR 
S2>30 THEN 1610 

1640 PR!NT@448:PR1NT@448,"FINISH AT 
CELL";:INPUTA$ 




1650 IF A$ = "" THENRETURN 
1660C1=ASC(AS)-64:IFC1<1 OR 

C1>25 THEN 1640 
1670C2 = VAL(M!D$(A$,2)):IFC2<1 OR 

C2>30 THEN 1640 
1680 PRINT@448,"C0PYING - WAIT" 
1690 IF TC = 1 THEN 1970 
1700IFDC = 1 THEN 1840 
1710 IF C2oS2 THEN 2090 
1720AS = ASC(MID$(D$(CC,CR), 

2))-64:IFAS<>26AND 

AS + C1-S1>25THEN 

C1 =25 + S1 AS 
1730AS = ASC(MIDS(D$(CC,CR), 

5))-64:IFAS<>26AND 

AS + C1 — S1 >25 THEN 

C1=25 + S1 —AS 
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1740D${S1,S2) = D$(CC,CR) 

1750 FOR l = S1+1 T0C1 

1760A$ = D$(I-1,S2) 

1770 IF MID${A$,2,1) = "Z" THEN 1790 

1780 MID$(A$,2,1) = CHR$(ASC(MID$ 

(A$,2,1)) + 1) 
1790 IF MID$(A$,5,1) = "Z" THEN 1810 
1800MIDS(A$,5,1) = CHR$(ASC(MID$ 

(A$,5,1)) + 1) 
1810D$(I,S2) = A$:NEXT 
1820 IF C1>CX THEN CX = C1 
1830 GOTO 2080 
1840IFC1oS1 THEN 2090 
1850 AS = VAL(MID$(D$(CC,CR),3,2)):IF 

AS + C2-S2>30THEN 

C2 = 30 + S2-AS 
1860AS = VAL(MID$(D$(CC,CR),6)):IF 



AS + C2-S2>30THEN 

C2 = 30 + S2-AS 
1 870 D$(S1 ,S2) = D$(CC,CR) 
1880 FOR f = S2 + 1 TO C2 

1890A$ = D$(S1,I-1) 

1900 IF MIO${A$ ) 2,1) = "Z"THEN 1920 

1910V = VAL(MID$(A$,3,2)} + 1:IFV<10 
THEN MID$(A$,3,2) = STR${V} ELSE 
MID$(A$,3,2) = MID$(STR$(V),2,2) 

1920 IF M!D$(A$,5/I) = "Z" THEN 1940 

1930V = VAL(MID$(A$,6,2)) + 1:IFV<10 
THENMID$(A$,6,2) = STR$(V) ELSE 
MID$(A$,6,2) = MID$(STR$(V),2,2) 

1940D$(S1,I)=A$:NEXT 

1950 IF C2>RX THEN RX = C2 

1960 GOTO 2080 

1970 IF DC = 1 THEN 2030 



1980 IF C2 <>CR THEN 2090 
1990FORI = CC + 1 T0C1 
2000 D$(I,CR) = D$(l — 1,CR): 

NEXT 
2010 IF C1 >CX THEN CX = C1 
2020 GOTO 2080 
2030 IF CloCC THEN 2090 
2040 FOR l = CR + 1 T0C2 
2050 D$(CC,I) = D$(CC,I 1 ): 

NEXT 
2060 IF C2 >RX THEN RX = C2 
2070 GOTO 2080 
2080MO = 1:GOSUB70:RETURN 
2090 PRINT@448,"error IN 

DESTINATI0N":S0UND1,5:FDRD = 1 

TO500:NEXTD 
2100 GOTO 2080 
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SOLIDS 

OF ROTATION 



Here is a handy technique that lets 
you turn a simple outline into a 
three-dimensional shape. Use it to 
design anything from a set of 
cocktail glasses to a top hat 





Drawing symmetrical objects, especially in 
three dimensions, is normally very tricky. But 
a computer can make light work of the task. 
With this program all you have lo do is draw 
the outline of one side of the shape, and the 
computer draws the rest for you, filling in the 
shape to create a wire-frame solid-looking 
object. 

The program works by rotating your 
original outline about a central axis. So you 
can create anything with a circular cross- 
section — such as a vase or bowl, a glass, a 
candlestick or bell, a top hat, an apple or 
orange, or a thousand other things. Because 
the program rotates your original line, the 
solid shape produced is called a solid of 
rotation. The program also lets you view the 
object from any angle, and as an extra bonus 
(except with the Commodore) it introduces 
some animation into the picture by spinning 
I he object about its axis. 



DRAWING THE SHAPE 



Drawing the outline of your shape is very 
easy — the program uses the rubber-banding 
technique, where you can stretch and move a 
line about until you're happy with its pos- 
ition. Rubber-banding allows interactive con- 
trol over the shape you're drawing, lei ting 



You can draw up to 20 lines in the outline. 
This is usually more than enough and most 
shapes can be drawn with about half a dozen 
lines. However, curves in the outline have to 
be made up from a series of short straight 
lines and this will take up more lines than a 
simple angular shape. 



A POINT OF VIEW 



The program also gives you control over the 
direction from which you look at the object — 
not only from above, below, or straight on, 
hut from anywhere else as you can specify the 
exact angle of view (an angle of about 70 
gives a good view from above, as though you 







place. (See pages 998 to 1003 for more 
information on rubber-banding. 1 



were looking at the object on a table). You can 
change the angle at any time and the program 
redraws the solid of rotation with the new 
orientation. 

The program stores the coordinates of all 
your lines. When you have finished drawing it 
lakes each line in (urn and rotates it about the 
centre point in steps of IS degrees — giving 20 
steps around the whole circle. The angle o( 
view is also taken into account and the circle 
appears more and more flattened as the view- 
point gets lower. The finished effect can be 
seen in the screen pictures and drawings on 
the following pages. 

Once the first view has been drawn the 
program wails. If you press the space bar or 



the space key then you can choose to view the 
same shape from a different angle. 



ADDING SOME SPIN 



On all but the Commodore you can also see 
the object spin by pressing one of the other 
keys. To make the shape spin, the program 
first saves the picture in memory using paged 
graphics techniques (see pages 1024 to 1029) 
and 1132 to 1137). The solid is then redrawn 
slightly differently as though it had been 
rotated a few degrees. This page is then savecjrf- 
as well and the procedure is repeated several 
times. Once all the pages have been drawn and 
saved in memory they are called back and 
displayed one after the other, making the 
object appear to rotate. 

The reason the Commodore program 
doesn't do this is because, when using paged 
graphics, the amount of screen that can be 
used is rather small and, given the screen's 
limited resolution, the lines making up the 
object would tend to blur together too much 
to be visible. By dispensing with the spinning 
effect the object can be made much larger and 
so clearer. 



USING THE PROGRAM 



Enter the program now and try drawing some 
shapes. The procedure for drawing is to move l 
the cursor to the place you want a line to start 
at, then press an appropriate key to mark the ' 
starting point. Then move the cursor to 
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THREE-DIMENSIONAL 



DRAWINGS 



CREATING SOME SHAPES 
DRAWING THE OUTLINE 



RUBBER-BANDING 



manipulate the 'rubber-band' line on the 
screen. When you're happy with its position, 
and want to 'fix' it in place you press another 
key. Continue like this— moving and stretch- 
ing the rubber-band and fixing lines — to 
build up the profile. 

On the Spectrum use the cursor keys to 
move the cursor; M to mark the starting 
position and |ENTER| to 'fix' each section of the 
profile. Press Q when the design is complete 
to move on to the next stage, the running of 
the program. 

On the Commodore use the Z X ; and ,' 
keys to move the cursor. Use the «— symbol to 
mark the st art posit ion and |SPACE| to fix each 
line. Press | RETURN | when you've finished. 

On the Acorn, Z X P and L move the 
cursor and |SPACE| fixes the line. The first time 
you press SPACE no line is drawn so use this 
to mark the start position. Press RETURN) to 
end. 

Finally, on the Dragon and Tandy the 
arrow keys move the cursor, [ENTER marks the 
start position, SPACE| fixes a line and Y ends. 

When you draw the shape you can speed up 
movement of the cursor by simultaneously 
pressing |CAPS SHIFT] on the Spectrum, |SHIFT| 
on the Commodore and Acorn, and |CLEAR| on 
the Dragon and Tandy. 



10 PRINT AT 0,10; INK 2; PAPER 5;"3D 

ROTATION": PAUSE 100 
20 PAUSE 2500 
30 CLEAR 30000: PAPER 0: INK 5: CLS : 

POKE 23658,0 
40 GOSUB 2000: BORDER 
50 PRINT AT 0,0; PAPER 6; INK 

0;" DDDDD MOVE LINE = CURSOR 

KEYSn DDDDD (CAPSHIFT FOR 

DOUBLE SPEED MOVE)" 
60 PRINT: PRINT PAPER 6; INK 

0;"nnnnaFix LINE = ENTER 

.^□□□□□□□""'□FIX 

CURS0R = MD D D FINISH = QDD 

DD" 
70 INPUT "ENTER ANGLE OF VIEW 

(0-180)";i: IF i <0 OR i > 180 THEN 

GOTO 70 
80 PLOT 60.100: DRAW 135,0: DRAW 

0,-49: DRAW -135,0: DRAW 0,49 



ALTERING THE VIEWPOINT 



SPINNING THE SHAPE 



PAGED GRAPHICS 



ENTERING THE PROGRAM 
HOW IT WORKS 



90 LET is = SIN (i/180'PI) 
100 LET bf = 0: LETa$ = "" 
1 1 LET x = 1 28: LET y = 51 

120 LET xx = x: LETyy = y 

130 OVER 1 

140 PLOT x,y: DRAW xx-x,yy-y 

150 PLOT x,y: DRAW xx-x,yy-y 

160LETz$=INKEY$: IFz$=""THEN GOTO 

140 
170 LET z = CODE z$ 
180 IF z = 13 THEN GOSUB 500 
190 IF z = 1 13 THEN GOTO 600 
195!Fz = 109ANDbf<>1 THEN PLOT 

255 -x,y: LETx = xx: LETy = yy: LET 

bf = 1 
200 I F z = 53 AN D xx > 1 28 TH EN LET 

XX = XX — 1 

210 IFz = 8 AND xx>130 THEN LET 

xx = xx — 2 
220IFz = 55ANDyy<100THEN LET 

yy=yy+1 
230 IF z = 11 AND yy = 98 THEN LET 

yy = yy+2 
240 IF z = 56 AND xx < 195 THEN LET 

XX = XX + 1 

250 IF z = 9 AND xx<194 THEN LET 

xx = xx -f - 2 
260 IF z - 54 AND yy> 52 THEN LET 

yy = yy-1 

270IFz = 10ANDyy>51 THEN LET 

yv = vv — 2 

280 GOTO 140 

500 OVER 0: PLOT x,y: DRAW xx-x, 

yy-y 

510 PLOT 255 x,y: DRAWx-xx, 

yy-y 

520LETx = xx: LET y = yy: LET 

a$ = a$ + CHR$(x-128) + CHR$ 

(y- 51): OVER 1: RETURN 
600 INK 7: CLS : OVER 0: DIM a(20,2) 
610 FOR a = TO 7 
620 PRINT AT 21 ,3; PAPER 2; BRIGHT 

1;"DRAW1NG PICTURE D";a + 1;"l 10UT 

OF 8" 
630 GOSUB 1000 
640 IF a<>0 THEN GOTO 670 
650 PRINT AT 20,0; INVERSE 1;"D SPACE 

KEY TO ALTER VIEW 

ANGLE! J""TDDU ANY OTHER KEY TO 

CONTINUED DD" 
660 LET X$ = INKEY$: IFX$ = ""THEN 





GOTO 650 
662IFX$<>"[ I" THEN GOTO 670 
664 INPUT "ENTER NEW ANGLE 

(0-180)";i 
666 IF i<0 OR i> 180 THEN GOTO 662 
668 CLS: LET is = SIN (i/180'PI): 

GOTO 620 
670 GOSUB 1600 
680 CLS 
690 NEXT a 
700 PRINT AT 20,11; PAPER 7; INK 

1 ;*«□ FRAME :□"; 
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710 FOR a = 128 TO 240 STEP 16 

720 POKE 30114,a: RANDOMIZE USR 30112 

730 PRINT AT 20,1 9;a/1 6 

740 NEXT a: GOTO 710 

1000 FOR b = 1 TOLENa$STEP2 

1010 LET x = CODE a$(b) 

1020 LET v = CODE a$(b + 1) 

1030 GOSUB 1500 

1040 NEXT b 

1050 RETURN 

1500 FOR c = TO 399 STEP 20 

1510LETd = c + {2.25 , a):LETpv = is"y 

1515IFd> =360 THEN LET d = d - ■ 360 

1520 GOSUB 1530: NEXT c 

1525 DRAW bx xd,by yd: RETURN 

1530 LET yd SIN (d/180'PI)VCOS 

{(/180-PI) 
1532 LET xd = COS (d/180'PI)'x 
1535LETxd = 128-fxd: LET 

yd = 90 + yd + py 
1540 IF c = THEN PLOT xd,yd: LETbx = xd: 

LET by = yd 
1550 DRAW xd PEEK 23677,yd PEEK 

23678 
1560 IF b = 1 AND bf = 1 THEN GOTO 1580 
1565 IF b= 1 THEN PLOT 128,90: DRAW 

xd-128,yd-90: GOTO 1580 
1570 PLOT 8(1 +c/20,1),a(1 +c/20,2): DRAW 

xd-a(1+c/20,1),yd-a(1+c/20,2) 
1580 LET a{1 +c/20,1) = xd 
1585 LETa(1+c/20,2) = yd 
1590 RETURN 

1600 POKE 301 02,128 + a'16 
1610 RANDOMIZE USR 30100 
1620 RETURN 
2000 RESTORE 2050 
2010 FOR a = TO 23 
2020 READ b: POKE a + 30100,b 
2030 NEXT a 
2040 RETURN 
2050 DATA 17,0,0,33,0,64,1,0,16,237,176, 

201 
2060 DATA 33,0,0,17,0,64,1,0,16,237,176, 

201 




You will need a Simons* Bask cartridge 
INPUT'S hi-res graphics utility in order 
RUN this program. 

10 HIRES 3,6:COLOUR 6,6:DIM A(19,1): 

POKE 650,128 
20RD = ATN(1)/45 
40 BX = 1 41 :BY - 1 90:XX = BX:YY - BY: 

X = BX:Y = BY 
50 REC 59,141,163,51,2 
60 LINE BX,BY,X,Y,2 
70GETK$:CP=PEEK(197):IFK$ = "I I" 

THEN GOSUB 500 
80 M 2:IFPEEK(653) 1 THEN M 8 
90 LINE BX,BY,X,Y,2:IF K$ = "<-" AND 

A$ = ""THEN BX = X:BY = Y:BF = 1: 

GOSUB 500 
100 IF K$ = CHR$(13) AND LEN(A$)>0 

THEN 160 
110IFCP-50ANDY M >142 THEN 

Y = Y-M 

120IFCP = 55ANDY + M<191 THEN 

Y = Y + M 

130 IF CP = 12 AND X M>140 THEN 

X = X-M 
140 IF CP-23 AND X + M < 220 THEN 

X = X + M 
150 GOTO 60 
160 GOSUB 2000:HIRES 0,0:MULTI 3,6,14: 

COLOUR 6,0 
170 GOSUB 1000:COLOUR 14,0 
190GETK$:IFK$ = "i l" THEN 160 
195 GOTO 190 
500 LINE BX,BY,X,Y,1 



510 LINE 281 BX,BY,281 X,Y,1 
520 BX = X:BY = Y:A$ = A$ + CHR$ 

(X -141) + CHR$(190 Y):RETURN 
1000 FOR B = 1 TO LEN(A$) STEP 2 
1010X-ASC(MID$(A$,B,1)):Y=ASC(MID$ 

(A$,B + 1,1)) 
1020 GOSUB 1500:NEXTB 
1040 RETURN 

1500 FOR C = TO 399 STEP 20 
1510D = C:PY = IS'(Y'.5) 
1520 GOSUB 1530:NEXT C:RETURN 
1530 YD -100 SIN(D'RD) - X'COS(rRD)- 

PY:XD-. eOfCOSfD-RDKX 
1540 IF C-0 THEN BX-XD:BY YD: 

XX = XD:YY = YD 
1550 LINE XX,YY,XD,YD,1:XX-XD:YY=YD 
1560IFB = 1 AND BF-1 THEN 1580 
1565 IF B- 1 THEN LINE 80,91 ,XD,YD,2: 

GOTO 1580 
1570 LINE A(C/20,0),A(C/20,1),XD,YD,3 
1580XX = XD:YY = YD:A(C/20,0) XD: 

A(C/20,1)=YD:RETIRN 
2000 NRM:1 = 0:INPUT "^QANGLE OF 

VIEW (0-1 80)";l 
2010 IF I <0 OR I > 180 THEN 2000 
2020IS = SIN(I'RD):RETURN 



Note the changes below lor the Electron. 

10 DIM A(19,1),X(20),Y(20) 

20MODE1:VDU23;8202;0;0;0; 

40 BX = 644:BY = 104:X= BX:Y = BY:N = 

50 PROCDRAW 

60GOSUB2000:MODE4: 

VDU23;8202;0;0;0; 
70 HIMEM = &3000:?&34E = 8.30 
8OVDU23;6,16,0;0;0; 
90 A = 0:PROCSCREEN 
100 VDU 24,0;512;1279;1023;:FOR A-3 TO 

0STEP 1:CLG:GOSUB1000:IFA = 3 

THEN G-GET:IFG = 32 THEN A = 0: 

NEXT:MODE4:G0TO 60 
110PROCSCREEN:NEXT 
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120 FOR A = 0TO3:D = INKEY{10): 

PROCSCREEN:NEXT 
130 IF INKEY(I) = 32 THEN GOSUB 2000: 

GOTO 90 ELSE 120 
140 DEF PROCSCREEN 
1 45 • FX1 9 
1 50 X% = &6C - A*&1 4:?&351 = X%: 

?&350 = 0:X% = X%*32 
160 VDU 23;13,X%MOD256,0;0;0;23;12,X% 

DIV256,0;0;0; 
180ENDPROC 
500 DEF PROCDRAW 
510 MOVE80,100:DRAW80,500:DRAW 1200, 

500:DRAW 1200,100:DRAW80,100 
520 GCOL3,3:IF N <>0 THEN MOVE 

BX,BY:DRAWX,YI IELSE PLOT69,X,Y 
530 IF INKEY( — 99) THEN PROCIN 
540IFIMKEY(-1)THEN M = 16 ELSE M=4 
550IFNO0THEN MOVE BX,BY: DRAW 

X,YLIELSE PLOT69,X,Y 
560 IF INKEY( 74) ANDN>0OR 

N = 20 THEN ENDPROC 
570 IF INKEY( — 87} AND Y-M>100 THEN 

Y = Y-M 

580 IF INKEY( 56) AND Y + M<500 THEN 

Y = Y + M 

590 IF INKEY( - 98) AND X - M > 636 THEN 

X = X-M 
600 IF INKEY(-67) AND X + M<1200 

THEN X = X + M 
610 GOTO 520 
620 DEF PROCIN 
630 IF N = THEN 660 
640 GCOL0,3:MOVEBX,BY:DRAWX,Y 
650 MOVE1280-BX,BY:DRAW 1 280 - X,Y 
660 BX = X:BY = Y:X(N) = X-640:Y(N) = 

Y-100:N = N + 1:REPEATUNTIL 

INKEY(-99)=0:ENDPROC 
1000FORB = 0TON-1 
1010X = X(B):Y = Y(B) 
1020GOSUB1500:NEXT 
1040 RETURN 

1500 FOR C = TO 360 STEP 20 
1510D = RAD(C + 5'A):PY = IS'Y 
1520 GOSUB 1530:NEXT:RETURN 
1530YD = 700+(SIND'X'COS(RAD(I)) + 

PY)/2:XD = 640 + {COSD*X)/2 
1540 IF C = THEN MOVEXD,YD:BX = XD: 

BY = YD 



1550 DRAWXD,YD 

1560 IF B = THEN MOVEXD,YD:GOTO 1580 

1570 MOVE A(C/20,0),A(C/20,1):DRAWXD, 

YD 
1 580 A(C/20,0) = XD:A(C/20,1 ) = YD: 

RETURN 
2000 CLS:'FX1 5,0 

2010 INPUT" ANGLE OF VIEW (0-180) ! I'M 
2020IFI<0ORI>180THEN2000 
2030IS = SIN(RAD(I)):RETURN 

On the Electron) if you want to sec the object 
spin, delete Lines 80 and 145 and then enter 
the following lines: 

30 PROCASS 

90 VDU 23;13,128,0;0;0;23;12,13,0;0;0;: 

?&351=&6C:?&350 = 
120 FOR A = 1 TO 3:PROCSCREEN:NEXT 
150X% = &6C-A*&14 
160Y% = &6C 
170 CALL SWITCH 
180 ENDPROC 
200 DEF PROCASS 
210 DIM SWITCH 100 
220 FOR T = TO 2 STEP 2 
230 P% = SWITCH 
240 [OPT T 
250 STX &71 
260 STY 8.73 
270 LDX #20 
280 LDY #0 
290 STY &70 
300 STY &72 
310 12I !LDA(&70),Y 
320 PHA 
330 LDA (&72),Y 
340 STA (&70),Y 
350 PLA 
360 STA (&72),Y 
370 INY 
380 BNE L2 
390INC&71 
400 INC &73 



410 DEX 
420 BNE L2 
430 RTS 
440] NEXT 
450 ENDPROC 



For the Tandy, change the 223 in Line 20 to 
247. 

10PMODE2,1:PCLEAR2:CLEAR200,7679: 

DIMA(19,1) 
20RD = ATN(1)/45:V = 223 
30PCLSLSCREENL0 
40BX=128:BY = 190:DRAW"BM128,190": 

X=BX:Y = BY 
50 LINE(31,191)- (255,140), PRESELB 
60 LINE(BX,BY)-(X,Y), PRESET 
70IFPEEK(345)=VGOSUB500 
80 IFPEEK(339) = 191THENM = 4ELSEM = 1 
90 LINE(BX,BY) (X,Y),PSET:IF PEEK 

(338) = 191 AND A$ = "" THEN BX = X: 

BY = Y:BF=1:GOSUB500 
100 IFPEEK(339)-V ANDLEN(A$) >0 THEN 

160 
110IFPEEK(341) = VANDY-M>141 THEN 

Y = Y-M 

120 IFPEEK(342) = V ANDY + M < 191 THEN 

Y = Y + M 

130IFPEEK(343)=V ANDX M> 127 THEN 

X = X-M 
140 IFPEEK(344) = V ANDX + M < 223 THEN 

X = X+M 
150GOTO60 
160GOSUB2000:SCREEN1,0:FORA = 0TO6: 

PCLS1:FORG=0TOA:PRESET(0,G'2):NEXT 
170GOSUB1000 
180 G$ = INKEY$ 
190IFA = 0ANDG$ = ""THEN180 
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The firt step is to draw in the outline of The computer then builds up the picture The finished design is a solid-looking 
your design a section at a time wireframe drawing 



200 IF A = 0AND G$ = "l TTHEM160 

210 NEXT 

220 FORA = 0TO6: PC0PY5 + A"2T01 :PC0PY 

6 + A'2T02:NEXT 
230 IFINKEY$ = "D" THEN160 ELSE220 
500 LINE(BX,BY)-(X,Y), PRESET 
51 LINE(255 - BX,BY) - (255 - X,Y), 

PRESET 
520 BX = X:BY = Y:A$ = A$ + CHR$ 

(X-128) + CHR$(190-Y):RETURN 
1000 F0RB = 1T0LEN(A$) STEP2 
1010X = ASC(MID$(A$,B,1)):Y = ASC(MID$ 

(AW + 1,1)) 



T020GOSUB1500:NEXT 

1 030 PC0PY1 T05 + A*2: PC0PY2TO6 + A'2 

1040 RETURN 

1500FORC = 0TO360STEP20 

1510D = C + 20'A/7:PY = IS*Y 

1520 GOSUB1530:NEXT: RETURN 

1530 YD = 110 -SIN(D-RD)*X*COS(l*RD) 

PY:XD = 128 + COS(D'RD)-X 
1540 IFC = THENUNE(XD,YD) - (XD,YD), 

PRESET:BX = XD:BY=YD 
1550 LINE -(XD,YD),PRESET 
1560IFB = 1 ANDBF = 1 THEN1580 ELSEIF 

B = 1 THENLINE(128,110) (XD,YD), 




/> 




-itfSg 



PRESET:GOTO1580 
1570 UNE(A(C/20,0),A(C/20,1)) (XD.YD), 

PRESET 
1 580 A(C/20,0) = XD:A(C/20,1 ) = YD: 

RETURN 
2000 CLS:INPUT"I lANGLE OF VIEW 

(0-180)1 l";l 
2010 IF l<0OR l>180 THEN2000 
2020 IS = SIN(I"RD}:RETURN 



HOW IT WORKS 



All the programs work in much the same way. 
The important parts are the routines that let 
you draw the outline, create the solid and 
cause it to spin. 



ENTERING YOUR PROFILE 



The rubber-banding routine starts at Line 
140 on the Spectrum, Line 60 on the Com- 
modore, Dragon and Tandy and PROCDRAW 
on the Acorns. This routine is mostly con- 
cerned with checking which keys have been 
pressed and updating the coordinates of the 
stretched line. The actual drawing of the line 
is done by the routine at Line 500, which also 
draws in the mirror image of the line. 

As each line is fixed, the coordinates of its 
end point are stored. First of all a number is 
subtracted from each coordinate in order to 
give a point measured relative to the centre 
line. Then, on all but the Acorn, the numbers 
are turned into a string and each is added on 
to the end of A$ (or a$). On the Acorn, the 
coordinates arc stored in two arravs X() and 

YO- 

The routine at Line 2000 (Line 70 on the 
Spectrum) lets you INPUT your angle of view; 
any angle between and 180 degrees is 
accepted. The program now immediately 
jumps to the routine at Line 1000 which 
creates and draws the three-dimensional 
solid. 



ITHE THIRD DIMENSION 



This routine uses the stored coordinates of 
the lines you have drawn and the angle you 
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INPUT to turn the outline 
into a solid-looking three- 
dimensional object. 

The maths used by the rou- 
tine is the same for each 
computer although the 
graphics commands to draw 
the lines are, of course, different. 

In Line 1000 a loop, controlled 
by the variable B, selects each of your 
lines in turn and strips off their finishing 
coordinates from A$ (or the two arrays on the 
Acorn). It then jumps to the next routine 
starting, at Line 1500, 

This routine displaces these coordinates so 
they take into account the angle of view you 
selected, and then draws in the line using 
these displaced coordinates. This is repeated 
20 times, so your original line is drawn in 20 
different positions round a circle. The routine 
then RETURNs to Line 1000 to do the same for 
the next of your lines. By taking the lines one 
at a time the picture is built up in stages and 
you'll see this when you RUN the program. 

If you look closely at the program you'll see 
that the procedure for drawing the first of 
your lines is slightly different from that for 
the others. This is because the displaced 
coordinates it works out are always the ends of 
the lines, the start coordinates being the ends 
of the previous lines. However, with the first 



line the start coordinates also have to be 
worked out. 

Lines 1 560 and 1 565 check to see if it is the 
first line. The Acorn program works slightly 
differently, but on all the others B = 1 means 
the first line, and if B F = 1 as well it means the 
first line was a blank move. With a blank 
move all that happens is the coordinates are 
worked out and then stored in the array A(). 
These coordinates will then form the start of 
the next set of lines. If the first move wasn't 
blank it means it started from the centre, so 
'spokes' are drawn out from the centre to the 
end coordinates of the lines. The Acorn 
assumes vour first move was blank and works 



out all the coordinates even when you start 
from the centre. 

So, for each line of your drawing, a whole 
ring of lines are drawn and their ends are 
linked by a circle, giving the effect of three 
dimensions. The coordinates of each end 
point are stored in the array A() so the 
computer knows the starting points for the 
next set of lines. 



ROTATE 



When the drawing is complete the program 
waits. Unless you have a Commodore, press- 
ing a key will then call the paged graphics 
routine that makes the drawing spin. Several 
pictures are drawn one after the other and 
saved in memory. The number of pictures A, 
is controlled by the loop in Lines 610 to 690 
on the Spectrum, Line 120 on the Acorn and 
Line 220 on the Dragon and Tandy. The 
variable A also determines the amount each 
picture is shifted by altering the angle in Line 
1510. The pictures are then displayed one 
after the other to give the effect of animation. 
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Choosing the winning combination 
in a chance event is like picking 
numbers at random— a prime task 
for your micro, given a little 
statistical know-how 



Engineers of all descriptions build models — 
structures in miniature — to test their designs. 
By doing so, they are simulating a real system. 
The article on pages 1 1 58 to 1 162 shows how 
your micro can do something similar — go 
through the motions of an event and give 
results that resemble those of an actual occur- 
rence. Now you can find out how to combine 
the principles of statistics and modelling to 
solve problems realistically in games and real- 
life situations. 



TYPES OF MODEL 



Technically, a model is a representation of a 
real system, constructed for its simplicity and 
usefulness as an aid to making decisions. 
There are three categories of models — iconic, 
analogue and symbolic — not all of which are 
practicable for simulations by home computer 
enthusiasts. 

Iconic models have no moving parts — road 
maps and toy aeroplanes come into this 
category. In preparation for building a bridge 
across an estuary, for example, civil engineers 
might build a model of the bridge and area 
surrounding the estuary to study the effects of 
tide, flooding and wind on the structure. 
Although computers are employed to monitor 
these factors and analyse the results, the fact 
that you have to collect data from an actual 
trial means that there is no need for a 
simulation. 

Analogue models represent one quantity 
by another. For example, Professor Phillips, 
a British economist, arranged a number of 
cold-water tanks at different levels and used 
the flow of liquid between the tanks to 
represent the flow of cash in the UK 
economy. The same sort of thing can be done 
electronically, by representing different 
quantities by different voltages — but ana- 
logue computers, rather than the digital sy- 
stem used in home computers, are generally 
employed for this work. It is the third 
category — the symbolic or abstract model — 
that is of particular interest to anyone wishing 
to carry out simulations on a home computer. 



REAL-LIFE UNCERTAINTIES 



In the symbolic type of model, it is a 
mathematical formula that is used to repre- 




sent the real system. For instance, if you 
wished to study the distance (S) travelled by a 
car at constant speed (V) for a Time (T), then 
a suitable model would be S = V*T. This 
type of equation is called deterministic, 
because it gives no measure of uncertainty. It 
describes precisely the motion of the car for 
any set of values you specify. There are, 
however, many events that cannot be speci- 
fied without a degree of uncertainty. An 
example of these is in the program on pages 
694 to 700, which simulates the tossing of a 
coin. Models that describe imprecise events 
are called stochastic. Usually, these are the 
types of event for which simulations are 
required — particularly in games. 

Some variables can take only discrete 
values, such as 0, 1, 2, 3, . . . The number of 
goals in a football match, or the number of 
male children in a family, are in this category. 



When simulating random variables of this 
type, it is important to be able to recognize 
that many seemingly different processes do, 
in fact, have the same underlying structure. 
As an example, consider the coin tossing 
simulation mentioned earlier. This program 
could easily be modified to represent the 
random casts of dice or the number of goals 
scored in a penalty shoot-out. In all these 
circumstances, there are a number of inde- 
pendently repeated trials, the results of which 
can occur with definite probabilities. For 
example, a trial may consist of tossing a coin 
four times. The result of each trial can be four 
heads, three heads and a tail, two heads and 
two tails, three tails and a head or a com- 
plete set of four tails. And there is a defin- 
ite probability attached to each of these out- 
comes. Structures of this type, named Ber- 
noulli Processes, generate discrete random 
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variables that are unsuitable for, say, the 
number of accidents occurring in a Grand 
Prix, the total number of telephone calls 
arriving in a half-hour period, or the number 
of lightning flashes recorded during an 
electric storm. In these instances, the events 
occur haphazardly during a period of time, of 
their own accord, and not as a result of 
repeated trials. Such structures are called 
Poisson Processes. Enter the first program, 
which lets you sample from any Poisson 
distribution you choose: 



10 BORDER OrPAPER 0:INK 7:CLS 
20 POKE 23658,0 

40 PRINT AT 1,6;1NVERSE 1;"D POISSON 
SIMULATIONa":PRINT:PRINT 

50 INPUT "WHAT IS YOUR MEAN 
VALUE D "ia 



70 INPUT "SAMPLE SIZED";n 

80 FOR i = 1 TOn 

90 LET c = 0:LET t = 1 

100 LET s = EXP (-a) 

110LETt = t*(RND*1} 

120 IF t< =s THEN PRINT;"Dnnn □ □ 

D";c,:GOTO150 
130 LET c = c + 1 
140 GOTO 110 
150 NEXT i 
160 INPUT "DANOTHER SAMPLE 

(Y/N)?";g$ 
170 IF g$ = "y" THEN GOTO 10 
180 STOP 



SSD 



SB[E 



40 PRINT "QM > UflPOISSON 

SIMULATIONS H" 
50 PRINT"||WHAT IS YOUR MEAN 

VALUE":INPUT A 
70 INPUT "HSAMPLE 

SIZE";N 
80 FOR 1 = 1 TON 
90C = 0:T = 1 
100 S = EXP(-A) 
110T = T*RND(1) 

120 IF T< =S THEN PRINT C,:G0T0 150 
130C = C + 1 
140 GOTO 110 
150 NEXT liPRINT 

160 PRINT'ANOTHER SAMPLE (Y/N)?" 
170 GETG$:IF G$ = "Y" THEN RUN 
180IFG$o"N"THEN170 
190PRINT"Q" 



El 



40 MODE1:PRINTTAB(12,3)"POISS0N 

SIMULATION"" 
50 INPUT"WHAT IS YOUR MEAN VALUE",A 
70 INPUT"AND YOUR SAMPLE SIZE",N 
80 FOR 1 = 1 TON 
90 C = 0:T = 1 
100S = EXP(-A) 
110T=T*RND(1) 

120 IF T< =S THEN PRINT C;:GOTO 150 
130C = C + 1 
140 GOTO 110 
150 NEXT 

160 INPUT'"ANOTHER SAMPLE (Y/N)",G$ 
170IFG$ = "Y"THEN40 
180 END 



30CLS 

40 PRINT@7,"poisson simulation": PRINT: 

PRINT 
50 INPUT"WHAT IS YOUR MEAN VALUED";A 
60 PRINT 

70INPUT"SAMPLESIZED";N 
80 FOR 1 = 1 TON 
90C = 0:T = 1 
100S = EXP(-A) 
110T = T*RND(0) 
120IFT<=STHEN PRINTLEFT$(STR$(C) 

+ "DDDDD □ D",8);:GOTO150 
1 30 C = C + 1 
140 GOTO110 
150 NEXT I 
160 PRINTINPUT'ANOTHER SAMPLE 

(Y/N)D";G$ 
1 70 IF GS = "Y" THEN 30 
180 END 

When you RUN the program, you are 
prompted to enter a mean value (the math- 
ematical average) and the size of your sample 
(Lines 50 and 70). The main part of the 
program (Lines 80 to 1 50) uses an equation to 
generate the Poisson variables. The variable S 
is set (Line 1 00) to the value of e (a mathemat- 
ical constant) raised to the power A (the mean 
value you entered). Line 110 sets a random 
number between and the value of T, and 
scales it according to the value of T. Line 120 
then compares S and T to decide whether a 
variable (C) is to be printed. 

Suppose, for example, you are designing a 
space game in which a battle cruiser has to 
pass through a meteorite storm. If the mean 
number of 'hits' in any one-minute period is 
two, and five separate one-minute simulations 
are required, the computer might print out 2, 
3, 2, 1,0 for 'hit' statistics. Each item in the 
list will not differ much from 2 (the mean), 
and there are five items — the sample size. 

Could this same technique be used to 
simulate, say, the final scores in a football 
match? Clearly, you are dealing with a dis- 
crete variable, because the number of goals 
scored can take only whole-number values 0, 
1, 2, 3, and so on. Also, you are concerned 
with events that occur of their own accord 



over time — and not as a result of repeated 
trials. So this is indeed a case for which a 
Poisson Process is suitable. Now, besides the 
number of matches played, the only other 
piece of information you need is what value is 
to be used as mean goals scored. Here, it 
becomes necessary to go out into the real 
world and collect some data. The table below 
gives mean scores for home and away teams in 
the English First Division soccer league, 
between 1977 and 1983. 



First Division Goals 




Home 


Away 




goals 


goals 




per 


per 


Season 


match 


match 


77-78 


1.6039 


1.0606 


78-79 


1.5498 


1.0844 


79-80 


1.6925 


0.9481 


80-81 


1.6364 


1.0216 


81-82 


1,4545 


1.0844 


82-83 


1.7532 


0.9822 



On the basis of these figures, an inspired 
guess of 1.7 for mean home scores and 1.0 for 
mean away scores is reasonable. Dividing 
each value by two leads to mean half-time 
scores of 0.85 and 0.5. Construction of the 
program is now straightforward: 



20 DIM a$(25,10):DIM h$(25,10):DIM 
h(50):DlM a(50):DIM f(50):DIM g(50) 

30 BORDER 0:PAPER 0:INK 7:CLS 

50 PRINT AT 0,8; INVERSE 1; 
"□□FINAL SCORED □" 

70 INPUT "DHOW MANY MATCHES (1-25) 
?D";n 

75IFn<1 OR n>25 THEN GOTO 70 

80 FOR ( = 1 TOn 

90 PRINT "MATCH",i 

100 INPUT "HOME TEAM";h$(i) 

110 INPUT "AWAY TEAM";a$(i) 

120 NEXT i 

130 PAUSE 400 

140 PRINT 

150 FOR i = 1 TO 2*n 

160LETc = 0:LETt=1 

170 LET s = EXP (-.85) 

180LETt = f(RND'1) 

190 IF t < =s THEN LET h(i) = c: GOTO 220 

200 LET c = c + 1 

210 GOTO 180 

220 NEXT i 

230 FOR i = 1 T0 2*n 

240LETc = 0:LETt=1 

250 LET |b EXP (-.5) 

260LETt = t*(RND*1) 

270 IF t< =s THEN LET a(i) =c: GOTO 300 

280LETc=c + 1 

290 GOTO 260 



300 NEXT i 

310 CLS 

320 PRINT TAB (7};"HALF-TIME SCORES";" 

330 FOR i = 1 TOn 

340 PRINT h$(i);h(i);TAB 20; 

a$(i);a(i):PRINT 
350 NEXT i 

360 PRINT "PRESS ANY KEY TO CONTINUE" 
370 IF INKEY$ = "" THEN GOTO 370 
375 CLS 

380 PRINT TAB 12;"FINAL SCORE"" 
390 FOR i = 1 TOn 
400LETf(i) = h(i) + h(n + i) 
410LETg(i) = a{i) + a(i + n) 
420 PRINT h$(i);f(i);TAB 20; 

a$(i);g(i):PRINT430NEXTi 
440 INPUT " ANOYHER GO (y/n) ?L i";g$ 
450 IF g$ = "n" THEN GOTO 490 
460 INPUT 'TJSAME TEAMS (y/n)";p$ 
470 IF p$ = "n" THEN GOTO 70 
480 GOTO 150 
490 STOP 



20 DIM A$(25),H$(25),H(50),A(50),FA(25), 
FH(25) 

50 PRINT "□H>liai : INAL 

SCOREHH" 
70 PRINT "HOW MANY MATCHES(1-25)": 

INPUT N 
75 IF N < 1 ORN>25THENGOTO70 
80 FOR 1 = 1 TON 
90 PRINT "aMATCH'M 
100 INPUT "HOME TEAM";H$(I) 
110 INPUT "AWAY TEAM";A$(I): 

PRINT 
120 NEXT I 

130 FOR V = 1 TO1000:NEXTV 
150 FOR 1 = 1 T0 2"N 
160C = 0:T=1 
170 S = EXP( — .85) 
180T = rRND(1) 
190 IFT<=S THEN H(I)=C: 

GOTO 220 
200 C = C + 1 
210 GOTO 180 
220 NEXT I 
230 FOR 1 = 1 T0 2*N 
240C = 0:T = 1 
250 S = EXP( — .5) 
260T = T*RND(1) 
270 IF T< =S THEN A{I) = C: 

GOTO 300 
280 C = C + 1 
290 GOTO 260 
300 NEXT I 
320 PRINT "QH > UflHALF-TIME 

SCORESHS" 
330 FOR 1 = 1 TON 

340 PRINT H$(l);H(l):PRINT"fl"; 

A$(I);A(I):PRINT 



350 FOR D = 1 TO200:NEXT'D,I 

360 PRINT "PRESS ANY KEY TO CONTINUE" 

370 GET X$:iFX$ = "" THEN 370 

380 PRINT "C]M> II 3 FINAL 

SCOREHH" 
390 FOR 1 = 1 TON 
400FH(I) = H(I) + H(N + 1) 
410FA(I) = A(I) + A(I + N) 
420 PRINT H$(l);FH(l):PRINT"a' 

FA(I):PRINT 
430 FORD = 1TO200: NEXT D,l 
440 PRINT "^ANOTHER GO (Y/N)?" 
450 GETG$:IFG$ = "N" THEN 

PRINT"rj":END 
455IFG$o"Y"THEN450 
460 INPUT "QSAME TEAMS (Y/N)";P$ 
470IFP$ = "N"THENRUN 
480 GOTO 150 



';A$(I); 



20 DIM A$(25),H$(25),H(50),A(50),FA(25), 

FH(25) 
50 MODE1:PRINTTAB(16,3)"FINAL SCORE" 
60 PRINT:PRINT 

70 INPUT"H0W MANY MATCHES (1-25)",N 
75 IF N < 1 ORN>25THEN70 
80 FOR 1 = 1 TON 
90 PRINT'MATCH", I 
100INPUT"HOMETEAM",H$(I) 
110 IN PUT" AWAY TEAM",A$(I): PRINT 



~~ ~~— ; ;^— ~~ 




120 NEXT 

130D = INKEY(100) 

140 PRINT 

150 FOR 1 = 1 T0 2*N 

160C = 0:T = 1 

170 S = EXP( — .85) 

180T = T*RND{1) 

190IFT<=STHENH(I)=C: 

GOTO 220 

200C = C + 1 

210 GOTO 180 

220 NEXT 

230 FOR 1 = 1 TO 2*N 

240 C = 0:T = 1 

250 S = EXP{-.5) 

260T = T*RND(1) 

270 IF T< =S THEN A(I) = C: 

GOTO 300 
280C = C + 1 
290 GOTO 260 
300 NEXT 
320 CLS:PRINTTAB(12,3)"HALF-T1ME 

SCORES":PRINT:PRINT 
330 FOR I = 1 TO N 
340PRINTH$(I)H(I)TAB(27)A$(I)A(I) 
350 NEXT 

360 PRINT'PRESS ANY KEY TO CONTINUE' 
370 X$ = GETS 
375 CLS 
380 PRINTTAB(16,3)"FINAL SCORE": 



PRINT:PRINT 
390 FOR 1 = 1 TON 
400FH(I) = H(I} + H(N + 1) 
410FA(I) = A(I} + A(I + N) 
420 PRINTH${I)FH(I)TAB(27} 

A$(I)FA(I}:PRINT 
430 NEXT 

440 INPUT'ANQTHER GO (Y/N)",G$ 
450IFG$ = "N"THENEND 
460 INPUT'SAME TEAMS (Y/N)",P$ 
470 IF P$ = "N" THEN 70 
480 GOTO 150 

20 DIM A$(25),H$(25),H(50),A(50),FA{25), 

FH(25) 
30 CLS 

50 PRINT@11, "final score" 
60 PRINT:PRINT 
70 INPUT"HOW MANY MATCHES(1-25)D"; 

N 
75IFN<1 ORN>25THEN70 
80 FOR 1 = 1 TON 
90 PRINT"MATCHD";I 
1001NPUT"HOMETEAMC";H$(1) 
110INPUr'AWAYTEAMn";A$fl): 

PRINT 
120 NEXT I 

130 FOR V = 1 TO 2000:NEXTV 
140 PRINT 




150 FOR 1 = 1 T0 2*N 
160 C = 0:T = 1 
170 S = EXP( — .85) 

180T = T'RND(0) 
190IFT<=STHENH(I) = C: 

GOTO 220 
200C = C + 1 
210 GOTO 180 
220 NEXT I 
230 FOR 1 = 1 T0 2*N 
240C = 0:T = 1 
250S = EXP{-.5) 
260T = FRND(0) 

270 IF T < = S THEN A(l) = C: GOTO 300 
280C = C + 1 
290 GOTO 260 
300 NEXT I 
310 CLS 
320 PRINT@7,"half-time scores": 

PRINT:PRINT 
330 FOR 1 = 1 TO N 
340PRINTH$(I);H(1),A$(I);A(1) 
350 NEXT I 

360 PRINT'PRESS ANY KEY TO CONTINUE" 
370 IF INKEY$ = "" THEN 370 
375 CLS 
380 PRINT@11,"final score": 

PRINTPRINT 
390 FOR 1 = 1 TON 
400FH(I) = H(I) + H(N + I) 
410FA(I) = A(I) + A(N + I) 
420 PRINTH$(I);FH(I),A$(I); 

FA(I) 
430 NEXT 
440 PRINT:INPUT"ANOTHER GO 

(Y/N)D";G$ 
450IFG$ = "N"THENEND 
460 INPUT'SAME TEAMS (Y/N)D";P$ 
470 IF P$ = "N" THEN 70 
480 GOTO 150 

RUN the program and respond to the prompts 
of the first section (from start to Line 1 20). To 
avoid too much typing, you can input letters 
of the alphabet, instead of actual names, for 
both teams. Lines 150 to 300 use the Poisson 
algorithm, used in the first program, to 
generate half-match scores for the Home and 
Away sides. Lines 320 to 350 organize the 
printing of half-time scores and Lines 390 to 
430 the display of full-time results. 

Although the simulated individual goals 
per match won't tally well with the actual 
results, the simulated aggregate performance 
should resemble the actual results closely. 

The Poisson distribution works well for 
whole-number variables, but some variables 
are fractional — they are continuously ran- 
dom. In a computer simulation of the 
Olympic long jump, for example, a competi- 
tor might record any distance between seven 
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and nine metres — the length of the jump is an 
example of a continuous random variable. 
Although the computer's RND function is 
suitable for simulating Poisson-type whole- 
number variables, you need a modified RND 
function to model with continuous variables. 
Figure 1 compares the type of distribution 
given by both types of variables. Whole- 
number variables give a uniform distribution, 
but continuous variables can give either an 
exponential or a normal distribution. Enter the 
next program to transform the flat or uni- 
formly distributed random variables supplied 
by the computer's RND function into ex- 
ponentially distributed random variables: 



10 BORDER 0:INK 7PAPER 0:CLS 

20 POKE 23658,0 

40 PRINT AT 0,4; INVERSE 1; 

"□ EXPONENTIAL SIMULATION □"" 



50 INPUT "WHAT IS YOUR MEAN VALUE 

?D));a 
70 INPUT "DSAMPLE SIZE ?D";n 
80 FOR i = 1 TOn 
90 LETx = (— a)"LN (RND*1):LET y=INT 

(x"10):PRINT "□ □ □ □ □ D";.1*y, 
100 NEXT i 
110 INPUT "DANOTHER SIMULATION 

(y/n)D";g$ 
120IFg$ = "y"THEN GOTO 30 
130 STOP 

40 PRINT "QH > U a EXPONENTIAL": 

PRINT"|J||flSIMULATIONnHH" 
50 PRINT "WHAT IS YOUR MEAN":INPUT 

"VALUE";A 
70 INPUT [ 'HHSAMPLESIZE";N 
80 FOR 1 = 1 TON 
90X = (-A)*LOG(RND(1)):Y=INT{X*10): 

PRINT .1*Y, 
100 NEXT I 
110 PRINT:PRINT "ANOTHER SAMPLE 

(Y/N)?" 
120 GETG$:IFG$ = "Y" THEN RUN 
130IFG$o"N"THEN 120 
140PRINT"Q" 

H 

40MODE1:PRINTTAB(11,3)"EXPONENTIAL 

SIMULATION" 
50 INPUT""WHAT IS MEAN VALUE",A 
70 INPUT""SAMPLE SIZE",N 
80 FOR 1 = 1 TON 
90 X= -A*LOG(RND{1)):Y = INT(X , 10): 

PRINT.VY; 
100 NEXT 

110 INPUT""ANOTHER SIMULATION",G$ 
120 IF G$ = "Y" THEN 40 



SfitaJ 

30CLS 

40 PRINT@5,"exponential simulation":PRINT: 

PRINT 
50 INPUT"WHAT IS YOUR MEAN VALUED"; 

A 
60 PRINT 

70INPUT"SAMPLESIZED";N 
80 FOR I = 1 TO N 
90X=(-A)*LOG(RND(0)):Y=INT(X*10): 

PRINTLEFT$(STR$(Y/10) + "00000 

OD",8); 
100 NEXT I 
110 PRINT:INPUT"ANOTHER SIMULATION 

(Y/N)D";GS 
120 IF G$ = "Y" THEN 30 
130 END 

When you RUN the program, specify a 
mean value and the number of samples re- 
quired, then the variables will be printed on 



the screen. Line 90 does all of the work. It 
uses a mathematical technique, called the 
inverse transform method, to translate 'flat' 
variables into exponential variables. This 
program could be used equally well to simu- 
late, say, the waiting time for driers in a 
launderette, or the lifetimes of energy packs in 
a space adventure game. Time elapsed is the 
important concept in both cases. 



NORMAL DISTRIBUTION 



The normal or bell-shaped curve represents 
the most famous statistical distribution of all. 
It has been found useful in describing all sorts 
of natural phenomena, including the heights 
and weights of adults. In addition, it is widely 
accepted as the most appropriate means of 
describing error distributions (see page 697). 

As an illustration of how the normal 
distribution might be incorporated into a 
model, consider the following example to 
design a business game. Suppose company 
sales (S) depend on some base level (So) and 
the amount spent on advertising (A). The 
relationship could be summarized by the 
expression S=S +{B*A) where B is some 
known constant. 

Now in real life, such precise relationships 
rarely hold. Unforseen events or circum- 
stances distort the facts or introduce 'noise' 
into the system. This system can be adequ- 
ately modelled by introducing a normally 
distributed disturbance equation for sales. 
The complete equation for sales would then 
be S = S„ + (B*A) + Normal Disturbance. 

Enter the next program to see this work: 



10 BORDER 0:PAPER0:INK7:CLS 
40 DIM u(50):DIMy(50):DIMz(50) 
50PRINTAT0,7;INVERSE1;"ONORMAL 

SIMULATIONO"" 
60 INPUT "DWHAT IS YOUR MEAN VALUE 

?D";a 
70 INPUT "DWHAT IS YOUR MINIMUM 

VALUE ?D";m 
80 INPUT "DSAMPLE SIZE ?D";n 
90LETb = (a-m)/2,5 
100 FOR i = 1 TOn 
110 LET t = 
120 FOR j = 1 TO 15 
130 LET y(j) = RND*1 
140 LET t = t + y(j): NEXT] 
1 50 LET u(i) - ((t/1 5) - .5)/SQR (1/(12*15)) 
160LETz(i) = a + (b*u(i)) 
170 LET p = INT (10*z(i)): PRINT 

"OODOO";.rp, 
180 NEXT i 

190 INPUT "DANOTHER SAMPLE ?D";g$ 
200 IF g$ = "y" THEN GOTO 50 
210 STOP 




40 DIM U(50},Y(50),Z(50) 

50 PRINT "QH > || ^NORMAL 

SIMULATIONHH" 
60 PRINT"WHAT IS YOUR MEAN":INPUT 

"VALUE";A 
70 PRINT" H WHAT IS YOUR MINIMUM": 

INPUT"VALUE";M 
80 INPUT "HSAMPLE S1ZE";N 
90B = (A-M)/2.5 
100 FOR 1 = 1 TON 
110 T = 

120 FOR J = 1 TO 15 
130Y(J} = RND(1) 
140T = T + Y(J}:NEXTJ 
150U{l) = ((T/15)-.5)/SQR(1/(12*15)) 
160Z{I) = A + (B'U(I)) 
170 P = INT(10'Z(I)):PRINT .1*P, 
180 NEXT I 
190 PRINTrPRINT "ANOTHER SAMPLE 

(Y/N)?" 
200 GETG$:IFG$ = "Y" THEN RUN 
210IFG$o"N"THEN200 
220 PRINT"Q" 



40DIMU(150),Y(150),Z(150) 

50 MODE1 : PRINTTAB(1 2,3)"NORMAL 

SIMULATION"" 
60INPUT"WHATISYOUR 

MEAN VALUE".A 
70 INPUr'WHAT IS YOUR MINIMUM 

VALUE",M 
80 INPUT"SAMPLE SIZE",N 
90B = (A-M)/2.5 
100 FOR 1 = 1 TON 
110T=0 

120 FOR J = 1 TO 15 
130Y(J) = RND(1) 
140 T = T + Y(J):NEXT 
150U(l) = ({T/15)-.5)/SQR 

[1/(12*15}) 
160Z(I)=A + (B'U(I)) 
170P = INT(10*Z(I)):PRINT 

.1*P; 
180 NEXT 
190 INPUT' 'ANOTHER 

SAMPLE",G$ 
200 IF G$ = "Y" THEN 50 



30CLS 

40 DIM U(50),Y(50),Z{50) 

50 PRINT@7,"normal simulation": 

PRINT:PRINT 
60 INPUT"WHAT IS YOUR MEAN 

VALUED ";A 
70 INPUT"WHAT IS YOUR MINIMUM 

VALUE D";M 
80 INPUT'SAMPLE SIZEn";N 
90B = (A-M)/2.5 
100 FOR 1 = 1 TON 
110T = 

120 FOR J = 1 TO 15 
130Y(J) = RND(0) 
140T = T + Y(J):NEXTJ 
150U(l) = ((T/15)-.5)/SQR{1/(12-15)) 
160Z(I)=A+(B'U{I)) 
170P = INT(10"Z(I)):PRINTLEFT$(STR$ 

(p/i0)+"nnnnnnn",8); 

180 NEXT I 

190 PRINT:INPUT"ANOTHER SAMPLED";G$ 

200 IF G$-"Y" THEN 50 

210 END 

RUN the simulation, then specify the mean 
and minimum values of your variable. Tech- 
nically, the range of the normal curve is 
unbounded, so there is a small chance that a 
simulated value will be less than the mini- 
mum you have specified. This won't happen 
very often. 

Lines 120 to 150 use the RND function to 
generate 15 random numbers between and 
1, and then add the numbers together. Line 
160 calculates the mean and adds a scaling 
factor. After further scaling (Line 160), the 
result can be printed. 

It may help you to get a better 'feel' for 
what's going on if numbers are generated 
from two distributions with the same mean 
and roughly the same range, but with differ- 
ent shapes. Run this program and enter values 
of 100 for mean, 50 for minimum and 40 for 
sample size. The values you get could be 
plotted to give a graph that looks like figure 
1C. 

Now delete Line 90 and Lines 120 to 160, 
and overwrite the following line (change 
RND(1 ) to RND(0} on the Dragon and Tandy): 

110Z{I) = M + RND{1)*2*(A-M) 

These changes convert the program into one 
capable of printing out uniform random 
values. Run the program again, entering the 
same values as before, and compare the 
results. This time, the values could be plotted 
to give a graph that looks like figure 1A. You 
should notice that the normal readings (in the 
first test) are much more closely clustered 
about the mean value of. 
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While Willie struggles manfully with 
his dangerous task, gulls crane and 
wheel in the sky above adding a 
touch that can turn an imaginative 
idea into a viable product 



No seaside scene would be complete without 
the plaintive gulls. But the game's own sound 
effects — coming in later parts — precluded 
this. So instead the seagulls are just going to 
flap around in the sky over the slope as part of 
the background scenery. 

You might think that this is an unnecessary 
frill as it plays no real part in the game. But it 
is touches like this one that' make all the 
difference if you are writing a commercial 
game. The days of two cursors and a blip 
tennis games are over. 

Unfortunately, there are no flapping 
seagulls in the Dragon version of Cliffhanger. 
It would have burdened the game with even 
more DATA, Dragon owners have probably 
had all the DATA they can take. 

Besides, in the Dragon version, it is a very 
hot day, much too hot for sensible seagulls to 
be flapping about. They are all resting in the 
shade! 



The following program not only prints the 
gull up on the screen, it makes the gull flap its 
wings up and down by using simply two- 
frame animation. 



QUI 



OP* 



org 58751 
Id a,(57349) 
inca 
res 3,a 
Id (57349),a 
Id bc,57192 
cp4 
jr c,gpt 
Id bc,57208 
Id a,46 
Id hl,42 
push be 



print 



call print 
inc hi 
call print 
pop be 
Id hl,68 
call print 
inc hi 
call print 
ret 
org 58217 



WINGING IT 



Memory location 57,349 contains the so- 
called gull delay variable. This stops the 
wings flapping up and down too fast. The full 
delay is loaded into A and incremented. 

To get the wings to flap up and down, the 
value of gull delay needs to fluctuate in a 
restricted range. Here the instruction res 3,a 
resets bit 3 of the accumulator. So when the 
gull variable is incremented beyond 7 it is set 
back to zero again. 

The result of the increment and reset is 
stored back in 57,349. 

To make the gull appear to be flapping its 



wings, there is data for two gulls — one with its 
wings up and one with its wings down. The 
two sets of data for these two gulls start at 
57,192 and 57,208. Each comprises 16 bytes 
of data. 

BC is loaded with the address of the first of 
these two blocks of data. Then the contents of 
the accumulator — which are still the gull 
delay — are compared with 4. 

A cp is an unstored subtraction. The 
number 4 is taken away from the contents of 
the accumulator, but the result is not stored in 
the accumulator — or anywhere else for that 
matter. The only result of the operation is to 
set the flags. 

So if the gull delay in the accumulator is 
less than 4 — that is, three or below — the carry 
flag is set. And if the gull delay is 4 or over, 
the carry flag is not set. 

The jr c instruction makes the processor 
jump if the carry flag is set. So if the gull delay 
is less than four, the processor skips the next 
instruction and 57,192 remains in the BC 
register. But if the gull delay is 4 or more, the 
carry flag is not set, the jump is not made and 
BC is loaded with 57,208, the beginning of 
the data for the second gull in the data table. 
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DIRECTION CHECKING 

IDENTIFYING THE END 

OF THE FLIGHT PATH 

CHANGING DIRECTION 

FLIPPING IN THE FLAG 



The 'CLIFFHANGER' listings published in litis 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called CLIFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 




G FLIGHT 



A is loaded with 46, to set the gull colour, and 
HL is loaded with the position of the first gull 
on the screen, 42. 

The contents of the BC register is then 
pushed onto the stack to preserve it. To add to 
the confusion, there are two gulls on the 
screen as well as in the data table. But the two 
gulls on the screen are the same gull in the 
data table. The same image is printed on the 
screen twice, in two different places. As the 
same image is used, the gulls flap in concert. 
So the data pointer has to be preserved' while 
the first gull is being printed on the screen, as 
the print routine automatically updates the 
pointer while it prints out the sixteen bytes of 
data needed to make up a complete gull. 

The print routine is then called. This prints 
out the eight bytes of data following the start 
position given in BC, updating the contents of 
BC as it goes. HL is then incremented to 
move it onto the screen position immediately 
to the right of the part of the gull already 
printed up. Then the print routine is called 
again. 

When those two characters squares have 
been printed out, you have one complete gull. 



Then it is time to print the next one. So the 
data pointer is pulled off the stack, HL is 
moved onto the position of the second gull. 
Then the print routine is called again, HL is 
incremented and the print routine is called yet 
again to print up the second half of the second 
game. 



This little routine makes the gulls flap their 
wings: 



ORG 22096 


LDA #57 


LDX #0 


STA ($FB),Y 


LDY #0 


XX LDA ($FB),Y 


LOOP LDA $C350,X 


CLC 


STA $FB 


ADC #1 


LDA $C35A,X 


STA ($FB),Y 


STA $FC 


INX 


LDA ($FB),Y 


CPX #2 


CMP #61 


BNE LOOP 


BNEXX 


RTS 



positions. So when the four gull pictures are 
printed on the same place on the screen, one 
after another, you get the impression that the 
gull is flying. 



GULLING 



The X register is used to count the number of 
gulls on the screen and is initialized to 0. The 
Y register is used as the offset when indirect 
addressing is used later in the routine. But the 
offset is not used at this point and the contents 
of Y remain throughout. 

The low byte of the screen position of the 
first gull is stored in the variable table in 
memory location $C350 and the high byte is 
in $C35A. And the low and the high byte of 
the screen position of the second gull are 
stored in $C351 and $C35B. These screen 
positions were worked out and stored in these' 
memory locations by the routine given in part 
seven of Cliffhanger (pages 1101 to 1105). 



There are two gulls on the screen, and four 
gulls in memory. The two gulls on the screen 
are really the same gull printed in different 
places. And the four gulls in memory are the 
same gull pictured with its wings in different 
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So the low byte of the screen position of the 
first gull is loaded into the accumulator and 
stored temporarily in the zero page location 
$FB where it can be manipulated easily. The 
high byte is stored at $FC. These two zero- 
page memory locations now act as a screen- 
position pointer. 

LDA ($FB},Y loads the accumulator with 
the contents of the memory location pointed 
to by the contents of $FB and $FC — in other 
words, it loads up the contents of that 
particular position on the screen. 

The four gulls are in memory in the form of 
UDGs. The data for these was entered as data 
in an earlier part of Cliffhanger. The gulls 
occupy UDGs 58 to 61 inclusively. 

So when the accumulator is loaded with the 
contents of the screen position of the first 
gull, it's loaded with a number between 58 
and 61 — a gull with its wings in some position 
or other that has already been printed. 

The number loaded is compared to 61. If it 
is not 61, the BNE instruction will skip over 
the next instructions which load up the 
accumulator with 57. This is 58 — 1 as the gull 
UDG to be incremented before it is printed 
on the screen. So if the gull UDG has already 
reached its maximum, 61, it is reset to 57 and 
passed back into the routine via the screen. 

The UDG number in the accumulator is 
now between 57 and 60. The carry flag is 
cleared and 1 is added to the contents of the 
accumulator. The UDG bearing the resulting 
number is stored back on the screen in the 



same position by the instruction STA ($FB),Y. 

So all this routine does is look at the gull on 
the screen and move it onto the next frame. 
And if it has reached the end of the four 
frames, it starts it off at the beginning again. 

The X gull-counter is then incremented 
and compared to 2. It is less than two, only the 
first gull has been moved onto the next frame, 
so the processor loops back and goes through 
exactly the same process with the second one. 
And if X has been clocked up to 2, the 
processor exits the routine. 



This program prints and moves two seagulls. 
In fact, these seagulls are much more am- 
bitious than those on the other machines. As 
well as flapping their wings, they fly about. 
Don't forget to set up the computer as normal 
before you key it in. 



70 DATA5/1 8,3,3, 

245,246,4 
80 F0RA% = &1 

C01TO&1C07: 

READ?A%:NEXT 
120FORPASS = 

0TO3STEP3 
130P% = &1C08 
140 [OPTPASS 
150 .Seagull 
160 JSRLbl 
170LDA&85 
180AND#&40 



190 BNELb6 
200 1NC&85 
210 LDA&85 

220AND#&3F 
230 CMP #23 
240 BNELb7 
250 LDA&85 
260ORA#&40 
270 STA&85 
280 JMPLb7 
290 Ib6 
300 DEC&85 
310LDA&85 



320 AND#&3F 

330 CMP #0 
340 BNELb? 
350 LDA&85 
360AND#&BF 
370 STA&85 
380 lb7 
390 LDA&86 
400AND#&40 
410 BNELb8 
420 INC&86 
430 LDA&86 
440AND#&3F 
450 CMP #30 
460 BNELb9 
470 LDA&86 
480ORA#&40 
490 STA&86 
500JMPLb9 
510 Ib8 
520 DEC&86 
530 LDA&86 
540 AND#&3F 
550 CMP #10 
560 BNELb9 
570 LDA&86 
580AND#&BF 
590 STA&86 
600 !b9 
610 LDA&85 
620 EOR # &80 
630 STA&85 
640 JSRLbl 
650 RTS 



660 Ib1 
670 LDA&85 
680 AND #&80 
690 BNELb2 
700LDY#21 
710 JMPLb3 
720 .Lb2 
730 LDY#23 
740 lb3 
750LDX#245 
760 TYA 
770 PHA 
780 JSR&17D4 
790 LDX # 246 
800 PLA 
810 TAY 
820 1NY 
830JSR&17D4 
840 LDY#48 
850 LDA&85 
860AND#&3F 
870 TAX 
880JSR&1964 
890 LDX #0 
900 .Lb4 
910LDA&1C01,X 
920JSR&FFEE 
930 INX 
940CPX#7 
950 BNELb4 
960LDY#56 
970 LDA&86 
980AND#&3F 
990 TAX 
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1000 JSR&1964 
1010 LDX#0 
1020 .Lb5 
1030 LDA&1C01,X 
1040 JSR&FFEE 



1050 INX 
1060 CPX#7 
1070 BNELbB 

1080 RTS 
1090 IN EXT 



To make the gulls fly, you have to set some 
initialization values by POKEing a couple of 
the variables on the zero page. You do this by 
keying in the following instructions: 

?&85 = 0:?86 = 10 

Then, when you have the rest of the game in 
memory, key in: 

CALL &1B32:REPEAT CALL &1C08:FOR 
A% = 0TO500:NEXT:UNTIL0 

This should send the feathers flying. 



LOWER THE FLAPS 



The DATA in Line 70 define the characters 
that make up the gulls and their colour. This 
is READ into a data table at &1C01 to &1C07 
where the machine code can find it. 

The first thing the assembly language 
routine does is jump to the subroutine at the 
label Lb1. This is the routine that does the 
printing on the screen. Here, it is called to 
print blank spaces over the old seagulls on the 
screen so that the new ones can be printed up 
without leaving bits of the old ones 
behind. Then the contents of &85 are 
loaded into the accumulator and ANDed with 
&40. This looks at bit six. &85 is one of the 



zero page locations that controls the gulls. If 
bit six is set the gull is moving to the left, and 
if it is not set the gull is moving to the right. 
AN Ding with &40 gives a 1 if bit six is set 
and a if bit six is not set. Then the BNE 
instruction in Line 190 jumps to the routine 
which moves the gull to the left starting at 
Line 290 if the result is 1. Or the processor 
continues with the routine that moves the gull 
to the right if the result is 0. 



ALL RIGHT 



The routine that moves the gull to the right 
does that by simply incrementing the gull 
control variable in &85. This byte is then 
loaded into the accumulator and ANDed with 
&3F. This examines bits zero to five, to see 
whether the gull has reached the end of its 
path. The ANDing clears bits six and seven, 
leaving the others unchanged. The result is 
compared to 23, which marks the extreme 
right-hand end of the gull's flight. 

If the result has not clocked up to 23 yet, 
the gull has not got to the end of its path and it 
is not time to change direction. So the BNE 
instruction branches the processor over the 
next little routine. 

If the result has clocked up to 23, the gull 
has reached the end of its path, so the 
processor does not make the branch. So the 
contents of &85 are loaded into 
the accumulator, ORed with &40 to set 
bit six and the result is stored back 
in &85. 



Whichever way the gull is going the pro- 
cessor now jumps onto Lb7 in Line 380, to 
skip the routine that sends the gull to the left. 



LEFT OVER 



If the branch in Line 190 had decided that the 
gull was flying to the left it would have sent 
the processor straight to the instruction in 
Line 290. 

The routine that moves the gull to the left 
works much like the one that moves it to the 
right. Only now, the control variable in &85 is 
decremented instead of being incremented. 

Again the result is ANDed with &3F so that 
bits zero to five can be examined. The 
left-hand-most end of the gull's path is at 0. 
If the gull byte has clocked down that far the 
direction is reset by ANDing the contents of 
&85 with &BF, which resets bit six and leaves 
the rest as they were. 



GULL TWO 



The second gull is handled in exactly the 
same way. The instruction from Line 390 1 
to Line 590 are exactly the same as 
those in Lines 170 to 370 which 
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nove the first 
The only difference 
that the control byte is &86 "^3 

instead of &85. Otherwise, it moves the gullto* 
the left or the right and checks to see whether 
it has reached the end of its path in exactly the 
same way. 



THE FLAPS 



The flapping of the wings of both gulls are 
controlled by bit seven of &85. The contents 
of this control byte are loaded into the 
accumulator and Exclusively ORed with &80. 
This flips bit seven — if it was 1 bit become 0, 
if it was it becomes one. There are two 
frames for each gull, one with its wings up and 
one with its wings down. Once one has been 
printed, the other has to be printed next time. 
And the easiest way to control this is to flip a 
bit. The result is stored back in &85. 

The processor then jumps to the subrout- 
ine which prints the new gull up. And when it 
comes back again, it returns. 



NEW GULLS 



The gull print routine, which starts at Line 
870, begins by loading up the first gulls 
control byte and ANDs it with &80. This 
checks bit seven to see whether the wings 
should be up or down. 

- The branch instruction in Line 690 then 

s either lets the processor move onto the next 

instruction which loads Y with 21, or skips 

that and loads Y with 23 which specifies the 

graphic number to be used. 

Whichever graphic is going to be used, the 
processor ends up at the instruction in Line 
750. LDX #245 loads up the number of the 
character that is going to be redefined to make 
the gull flap its wings. 

The graphic number in Y is transferred 
into A, so that it can be preserved by pushing 
it onto the stack by the PHA instruction. 

The processor then jumps to the subrout- 
ine at &17D4 which is the routine which 
redefines a character. In this case, by redefin- 
ing 245, the left-hand side of the gull is 
redrawn. 

X is then loaded with 246. This is the 
number of the character used to form the 
right-hand side of the gull. The graphic 
number is then pulled off the stack, transfer- 
red back into the Y register and incremented. 
This moves the pointer onto graphics 22 and 





24, which are going to be used to rcdefini: he 
right-hand side of gull. The subroutine at 
&17D4 is called again, which redraws the 
right-hand side of the gull. 

Y is then loaded with 48 which is the Y 
coordinate of the first gull. The X coordinate 
is picked up from the first gull's control byte 
in &85. It was put there — in bits zero to five — 
by the move routine above, remember. 

The X coordinate of the first gull is 
recovered by the contents of &85 into the 
accumulator, ANDing with &3F again and 
transferring the result into the X register. 

The processor then jumps to the subrout- 
ine at &1964, which moves the cursor into the 
appropriate position. X is then loaded with 
and the processor moves into the routine 
which actually prints the gull on the screen. 



LDA &1 C01,X loads up the first byte of the gull 
data table. The &FFEE routine is then called, 
which outputs the byte to the screen. X is 
incremented and compared with 7 and the 
processor branches back to output the next 
byte of data. Byte character numbers 245 and 
246— the characters for the left and right- 
hand sides of the gulls— appear in the data. 

Once all seven bytes of data have been 
output, the processor drops out of the loop. Y 
is then loaded with 56, the Y coordinate of the 
second gull. The X coordinate, again 
picked up from the control byte, in this 
&86. Again, it has to be ANDed with &3F 
transferred into the X register. 

The instructions in Lines 1000 to 1070 
exactly the same as those in Lines 880 to 950 
They position the cursor and print out 
data on the screen. And when all seven b; 
of the gull data have been output in the sec 
gull position, the processor returns. 
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CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 



Animation 

of solid drawings 

Acorn, Dragon, Spectrum, Tandy 

1192-1197 
of UDGs in cliffhanger 

992-997, 1204-1208 
using colour fill techniques 

Acorn 955-959 

using GCOL 3 

Acorn 999-1000 

using paged graphics 

1022-1027, 1132-1137 
Applications 
calendar and diary program 

1010-1016, 1017-1021, 1064-1067 
hobbies file, extra options 947-952 

magnification program 1081-1087 

spreadsheet program 

1118-1126,1172-1176, 1184-1191 
text -editor program 

852-856, 878-883, 914-920 



B 



BASIC 

adding instructions to 

Acorn, Dragon, Spectrum 844-851 

Basic programming 

analyzing and storing sounds 1091-1095 
animation with paged graphics 

1022-1027, 1132-1137 
colour commands, Acorn 953-959 

Computer-Aided-Design 998-1004 

designing a new typeface 838-843 

drawing come sections 859-863, 889-895 
how programs are stored 1 1 06- 1112 

mathematics of growth 1049-1056 

mechanics, principles of 933-939 

modelling reality 1193-1204 

multi-key control 974-979 

musical chords and harmonies 985-991 
patterns from nature 1164-1171 

prediction by computer 1 1 58-1 163 

programming function keys 825-829 
secret codes 960-965,1044-1048 

solids of rotation 1 1 92-1 197 

sound envelopes 

Acorn, Commodore 64 1138-1144 

speeding up BASIC programs 921-927 

Bernoulli processes, definition 1198 



Calendar and diary program 

1010-1016, 1017-1021, 1064-1067 

Chords, musical 985-991 

Cliffhanger game 
part 1— title page 904-913 

part 2 — adding instructions 928-932 

part 3 — adding a tune 966-973 

part 4 — graphics and merging 992-997 
part 5 — setting the scene 1034-1043 

part 6 — perils and rewards 1057-1063 
part 7 — initializing routine 1101-1105 
part 8 — synchronizing routine 

11,27-1131 
part 9 — scoring routine 1145-1151 

part 10— adding seagulls 1204-1208 

Codes, secret 960-965,1044-1048 

Colour 



filling in with 




Acorn 


953-959 


in Teletext mode 




BBC 


1068-1073 


routines for changing 




Commodore 64 


872-877 


CHlic sections 


857-863, 889-895 



D 



Digital clock routine 
Dynamics, programs to 

illustrate 



896-898 
1164-1171 



Envelope, 

oforbits 1164-1171 

sound 

Acorn, Commodore 64 

968-971, 1138-1144 

in musical harmony programs 986-991 



Filling in with colour 

Acorn 953-959 

Football results program 1200-1201 

Fox and geese game 

1096-1100, 1113-1117, 1152-1157 
Freddy and the spider from Mars 

pan 1— the graphics 1177-1183 

Fruit machine game 

1028-1033, 1074-1080 
Function keys, programming 

Acorn, Commodore 64, Vic 20 826-829 



Games 

cliffhanger 904-913, 928-932, 966-973, 

992-997, 1034-1043, 1057-1063, 

1101-1105,1127-1131, 1145-1151, 

1204-1208 

fox and geese 

1096-1100,1113-1117,1152-1157 
Freddy and the spider from Mars 

1177-1183 
fruit machine 1028-1033,1074-1080 

goldmine 830-837, 864-871 

lunar touchdown 1088-1090 

magnification 1081-1087 

multi-key control for 974-979 

Othello 980-984, 1005-1009 

wordgame 899-903, 940-945 

Goldmine game 830-837,864-871 

Graphics 

colour commands, Acorn 953-959 

effects using curves 857-863, 889-895 
hi-res 

for custom typeface 838-843 

setting up new commands 

Commodore 64 872-877 



magnification program for 1081-1087 
paged, for animation 

1022-1027, 1132-1137 

patterns from nature 1164-1171 

picking and dragging 1000-1004 

rubber-handing 998-1000 

solids of rotation 1 192-1 197 

trace of sound 1 092-1 095 

using Teletext mode, BBC 1 068-1 073 

Growth, measuring 1049-1056 



generation program 



H 



Hobbies file, extra options for 947-952 



Instructions, adding to BASIC 

Acorn, Dragon, Spectrum 844-851 



K 



Keypresses, multiple, programming for 

974-979 



Letter-generator program 838-843 

Lunar touchdown game 1088-1090 



M 



992-997 



Machine code 

games programming 

see cliffhanger 
merging routines 
routines for hi-res graphics 

Commodore 64 872-877 

routine to alter BASIC 844-849 

timer routine S96-898 

tune routine 966-973 

Magnification program 10SI-10S7 

Mathematical functions 

in mechanics 935 

in spreadsheet program 1 1 20 

speedy use of 923-924 

to assess population tendencies 

1170-1171 
to draw curves 857-863, 889-895 

to draw patterns from orbits 

1164-1170 
to measure growth 1049-1056 

Mechanics 
programs to show principles of 933-939 

Memory 

how BASIC programs are stored in 

1106-1112 
paged graphics in 1022-1027, 1132-1137 

Modelling reality 1198-1204 

Multi-key control, programming for 

974-979 

Music 

analyzing and storing 1091-1095 

chords and harmonies 985-991 

machine code routine for 966-973 



N 



O 



Orbits, patterns from 
Othello board game 



1054-1056 



1164-1171 



980-984, 1005-1009 



Paged graphics 1 022-1 027, 1 1 32-1 1 37 
Patterns from nature 1164-1171 

PLOT 

new commands, Acorn 953-959 

Poisson processes 1 199 

Prediction by computer 

1158-1163,1198-1203 



R 



RN1> function 
in computing probability 

1160-1163, 1198-1203 
to transform distribution of 

variables 1202 

Robotics 



Search routines 






binary and serial 




924-927 


in text-editor program 




914-920 


single pass 




1 162-1 163 


Solids of rotation 




1192-1197 


Sounds 






analyzing and storing 




1091-1095 


envelopes for modifying 






Acorn, Commodore 64 




1138-1144 


Speeding up BASIC programs 921-927 


Spreadsheet program 






1118-1126, 1172- 


1176, 


1184-1191 



T 



1068-1073 



Teletext mode, BBC 
Text-editor program 

part 1 — basic routines 852-856 

part 2— editing facilities 878-883 

part 3 — sorting, searching, 

formatting and printout 914-920 

Three-dimensional drawing 1192-1197 

Timer routine 

for BASIC lines 922 

machine code 896-398 

Typeface, setting up new 838-843 



V 



Variables 

managing for program speed 923-925 

setting in machine code game 1127-1131 

storing in memory 1 106-1 1 1 2 



w 



Numbers 

Fibonacci 



1056 



Wireframe drawing 1192-1197 

Wordgame 899-903, 940-945 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 39. . . 



-J Complete the BASIC arcade game by 
adding animation to FREDDIE AND 
THE SPIDER FROM MARS 

O Put the squeeze on the DATA needed 
for your computer concerto voith MUSIC 
COMPRESSION techniques 

O Use new COMPUTER MODELS to try 
your hand at simulating a real' life 
business situation — running a food stall 

Qln CLIFFH ANGER, add in the routines 
which control the RISING TIDE that is 
threatening our hero 

OPLUSJor COMMODORE users, more 
routines for your ASSEMBLER 

I— J Also in this issue, a comprehensive 
INDEX to parts 27-39 of INPUT 



A MAR5HALL CAVENDISH Ki'J COMPUTER COURSE IN WEEKLY PARTS 



PROGRAMMING - FOR FUN 
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ASK YOUR NEWSAGENT FOR INPUT 
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